C:\test>perl
$a = chr(0); $a x= 2**31;
substr( $a, 0, 2**16 ) =~ tr[\0][\1];
substr( $a, 2**16, 2**16 ) =~ tr[\0][\1];
^Z
substr outside of string at - line 2.