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