Select Code to Download

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

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