41
42
43
20
440
435
a
##</code><code>##

41
42
43
20
d1
80
d0
b5
a
##</code><code>##

41
42
43
20
e0
a5
a
##</code><code>##

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