[tbone@MDB zip-grok]$ perl -pi.bak -e '($count, $zip) = split /\t/; chomp $zip; warn "*$zip*"; next unless ( ($zip =~ /\d{5}/) and ($zip > 713) and ($zip < 99930) )' *.dat