#!/usr/bin/perl

my $filename = $ARGV[0];

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

foreach (@data) {
        $_ =~ s/\n//g;
        my $ricon = reverse $_; 

        my @hexes = split(//, $ricon);
        my $size = (sqrt($#hexes+1) / 2) - 1;
        my $i = 0;
        foreach (@hexes) {
                my $binary = sprintf("%04b", (shift || hex($_)));
                my $rbin = reverse $binary;
                print($rbin);
                $i++;
                if ($i > $size) {
                        print("\n");
                        $i = 0;
                }
        }
        print("\n");
}