Select Code to Download

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

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

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