perl -lane 'for(@F[1..4]){$_=0if$_>1000};print"@F"'