$s = unpack "A*", $s;