time perl -e '$_=[];{$/=\000,@$_=<>}; my $count=@$_;print $count, " lines\n";' </tmp/16   
1 lines
0.47sec 0.28usr 0.18sys (99.77% cpu)

##</code><code>##

time perl -e '{$/=undef, $_=<>} my $count=split /\000/,$_; print $count, " lines\n";' </tmp/16
4118704 lines
0.47sec 0.28usr 0.18sys (99.77% cpu)