Select Code to Download

my $a = "\x{3042}";  # Hiragana 'a'
show_info($a);       # UTF-8
...
    print "hex = $hex\n";
    print "enc = $enc\n\n";
}

hex = e38182
enc = utf8       # OK
...

hex = 3042
enc = ascii      # wrong