my $target = join("", map {chr()} ( 0x5434, 0x9547, 0x5b87 ));

my $part = substr( $target, 0, 2 );

print " length of target = ", length($target);
print "\n length of substr = ", length( $part );
print "\n $target\n $part\n";