#!/usr/bin/perl
use POSIX stdio_h;

die "Error: Need input file.\n" unless @ARGV;
for $ARGV ( @ARGV ){
    @c;

    open (IN, $ARGV) || die "$ARGV : $!";
    binmode(IN);

    while ( read(IN, $_, 1) ){
        $c[0] = uc( unpack("H2", $_) );
        for ($i=1; $i<8; $i++){
            unless ( read(IN, $_, 1) ){
                $_ = 0;
            }
            $c[$i] = uc( unpack("H2", $_) );
        }
        print STDOUT $c[7],$c[6],$c[5],$c[4],$c[3],$c[2],$c[1],$c[0], "\n";
    }

    close(IN);
}