#!/usr/bin/perl

my $filename = $ARGV[0];

open IN, "$filename";
flock (IN, LOCK_SH);
my @data = <IN>;
close IN; 

my @out;
foreach (@data) {
        $_ =~ s/\n//g;
        my @temp = split(//);
        my @hexes;
        for (my $i = 0; $i <= $#temp; $i+=4) {
                push (@hexes, $temp[$i].$temp[$i+1].$temp[$i+2].$temp[$i+3]);
        }
        foreach (@hexes) {
                my $rhex = reverse $_; 
                push(@out, sprintf("%x", oct('0b'.$rhex)));
        }
}

foreach (reverse @out) {
        print
}
print("\n");