12:23 >perl -MData::Dump -wE "my $s = qq[foo\0bar]; dd $s; say length($s); say qq[|$s|];"
"foo\0bar"
7
|foo bar|

12:23 >