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