Select Code to Download

41
42
43
...
440
435
a

41
42
43
...
d0
b5
a

41
42
43
...
e0
a5
a

#!/usr/bin/perl
if ( open my $fh, '<', "321t.txt" ) {
    my $line = <$fh>;
...
        printf("%x\n",ord(substr($line,$_,1)));
    }
}