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

##</code><code>##

my @bytes = unpack("U*",$input);
my $i=0;
while(scalar(@bytes)>0)
{
	my $byt=1;	
	$byt=2 if ($bytes[$i] >= 192);
	$byt=3 if ($bytes[$i] >= 224);
	$byt=4 if ($bytes[$i] >= 240);
	$byt=5 if ($bytes[$i] >= 248);
	print "$bytes[$i]: ";
	my @spl = splice(@bytes,0,$byt);
	my $letter = pack("U*",@spl);
	print $letter." [0x";
	foreach (@spl){printf "%2.2X",$_;}
	print "] ";
	print "\n";
}

##</code><code>##

Wide character in print at text_kanji.pl line 24.
26085: &#26085;&#26412;&#35486;&#12399;&#23569; [0x65E5672C8A9E306F5C11] 

Wide character in print at text_kanji.pl line 24.
12375: &#12375;&#12384;&#12369;&#20998;&#12363; [0x3057306030515206304B] 

Wide character in print at text_kanji.pl line 24.
12426: &#12426;&#12414;&#12377;&#12290;  [0x308A307E3059300220] 

97: a [0x61]
110: n [0x6E]
100: d [0x64]
32:   [0x20]
115: s [0x73]
97: a [0x61]
109: m [0x6D]
<!--snip-->

##</code><code>##

230: &#26085; [0xE697A5]
230: &#26412; [0xE69CAC]
232: &#35486; [0xE8AA9E]
227: &#12399; [0xE381AF]
229: &#23569; [0xE5B091]
227: &#12375; [0xE38197]
227: &#12384; [0xE381A0]
227: &#12369; [0xE38191]
229: &#20998; [0xE58886]
227: &#12363; [0xE3818B]
227: &#12426; [0xE3828A]
227: &#12414; [0xE381BE]
227: &#12377; [0xE38199]
227: &#12290; [0xE38082]
<!--snip-->

##</code><code>##

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