Select Code to Download

our $input = "日本語は少しだ
+け分かります。 and sam I am
+!";
#japanese characters meanings, there is a little bit of understanding 
+of the japanese language [at least].

my @bytes = unpack("U*",$input);
my $i=0;
...
    print "] ";
    print "\n";
}

Wide character in print at text_kanji.pl line 24.
26085: 日本語は少 [0x65E5672C8A9E306F5C1
+1] 
...
97: a [0x61]
109: m [0x6D]
<!--snip-->

230: 日 [0xE697A5]
230: 本 [0xE69CAC]
...
227: す [0xE38199]
227: 。 [0xE38082]
<!--snip-->

    my $letter = pack("U*",@spl);