Perl code - 6 lines

Link:

Perl, pasted on Feb 8:

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

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

print length $t, $t;

Output:

1 2	Hello worldhello 11Hello world