Select Code to Download

warn "*$zip*"; next unless

warn "*$zip*", next unless

perl -pi.bak -e 'chomp;my($x,$y)=split/\t/;do{warn"*$y*\n";next}unless
+$y=~/^\d{5}$/&&$y>713&&$y<99930;print"$x\t$y\n"' *.dat