Select Code to Download

s!JPCHARS!ascii chars!;

s!0x80! !;

my $str1 = qq(あ);
my $str2 = qq(え);

...
print unpack "H2", $str2; #gives me e3
printf("0x%02x\n", $str1); #gives me 0x00
printf("0x%02x\n", $str2); #gives me 0x00