time perl -e '{$/=undef, $_=<>} my $count=split /\000/,$_; print $coun
+t, " lines\n";' </tmp/16