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