use if $ARGV[0], "utf8";
printf "%vX\n", scalar(<DATA>);
__DATA__
é

##</code><code>##

$ perl a.pl 0
C3.A9.A

$ perl a.pl 1
E9.A