#!/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)));
    }
}