my $utf8 = pack "U*", unpack "S*", $ucs16;
my $ucs16 = pack "S*", unpack( "U*", $utf8 ), 0;