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)