Select Code to Download

$utf8 = Encode::decode('assumed-encoding-of-s', $s)

print unpack("H*", $s);

use Encode "encode";

...
    printf "%-6s : %s\n", $encoding,
                          unpack("H*", $a_enc->{$encoding});
}

ascii  : 3f
cp932  : 82a0
...
ucs2be : 3042
ucs2le : 4230
utf8   : e38182

$html_entity = '&#x'.unpack("H*", encode("ucs2be", $ch)).';';