@cps = unpack "U*", $str;