Help for this page
pack "C*", unpack "U*", $_
#!perl -w use strict; ... my $b = simplemap(\%unicode2win1252, $a); my $c = unpack("H*", $b); print "a = $a\nb = $b\nc = $c\n";