$b = pack("Z*C", "test", 10)
($str, $byte) = unpack("Z*C", $b);