C:\_32> perl -e "$s = 'x' . chr(0) . 'y';print $s;" >null.txt

##</code><code>##

C:\_32> perl -le "open RD, '<', 'null.txt'; $x = <RD>; chomp $x; print ord substr($x, 0, 1); print ord substr($x, 1, 1);print ord substr($x, 2, 1); print length $x;"
120
0
121
3

##</code><code>##

C:\_32> perl -le "open RD, '<', 'null.txt.new'; $x = <RD>; chomp $x; print ord substr($x, 0, 1); print ord substr($x, 1, 1);print ord substr($x, 2, 1); print length $x;"
120
0
121
3