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