print unpack "Z*", $string;