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

my $a_cp932  = encode("cp932",  $a);
show_info($a_cp932);

my $a_ucs2le = encode("ucs2le", $a);
show_info($a_ucs2le);

my $a_ucs2be = encode("ucs2be", $a);
show_info($a_ucs2be);

sub show_info {
    my $s = shift;
    my $hex = unpack("H*", $s);
    my $enc = getcode($s);
    print "hex = $hex\n";
    print "enc = $enc\n\n";
}