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

##</code><code>##

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