for i in *_sorted.bed;
do (cat $i | perl -p -e 'chomp;@v=split(/\t/);if ($v[4] > 1000){$v[4] = 1000;}$line=join("\t",@v);$_="$line\n";' > ${i%*_sorted.bed}_sorted1.bed); done