@a=map chr,unpack "C*",$str;