perl -ple "@f=split; for(@f[1..4]){ $_=0 if $_>1000 } $_=qq{@f}" infile >outfile