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