[0] Perl> $buf = "abcdef\x00ghik";;
[0] Perl> @a = unpack '(A)*', $buf;;
[0] Perl> print length for @a;;
1
1
1
1
1
1
0
1
1
1
1