Select Code to Download

perl -lape 's/\S+\s+//&&s/(\d+)/$1>1000?0:$1/ge' filename

perl -pe 's/(?<=\s)(\d+)/$1>1000?0:$1/ge' filename