my $utf8=
pack "U*", unpack "S*", $utf16;
$utf8 =~ s/\0.*//s;