Help for this page
1 7083 1 7530 ... 1 00820 4 00823
[tbone@MDB zip-grok]$ perl -pi.bak -e '($count, $zip) = split /\t/; ch +omp $zip; warn "*$zip*"; next unless ( ($zip =~ /\d{5}/) and ($zip > +713) and ($zip < 99930) )' *.dat