#!/usr/bin/perl

# t0.pl

use strict;
use warnings;

binmode (STDIN, ":utf8");
binmode (STDOUT, ":utf8");
while(<>){
    chomp;
    my $c = ord;
    printf "$_ = 0x%x\n", $c;
}

#!/usr/bin/perl

# t1.pl

use strict;
use warnings;

binmode (STDOUT, ":utf8");
while(<>){
    chomp;
    my $c = chr(hex);
    print "$_ = $c\n";
}