print pack("C*", unpack("U*", $string));