Help for this page
use if $ARGV[0], "utf8"; printf "%vX\n", scalar(<DATA>); __DATA__ é
$ perl a.pl 0 C3.A9.A $ perl a.pl 1 E9.A