$s = "Hello world\0hello\0\0";

print $s,"\n";
$t = scalar(unpack("Z*", $s));

print length $t, $t;