#!/usr/bin/perl
binmode STDOUT, ":utf8";
my @p = (0x61, 0x41, 0x7B11, 0x263A);
for (@p) {
    printf "0x%X: %s\n", $_, chr ($_);
}