$utf16= pack "S*", unpack( "C*", $ascii ), 0;
$utf16= pack "S*", unpack( "U*", $utf8 ), 0;
$ascii= pack "C*", unpack( "S*", $utf16 ); $ascii =~ s/\0$//;
$utf8 = pack "U*", unpack( "S*", $utf16 ); $utf8  =~ s/\0$//;