Help for this page
perl -lape 's/\S+\s+//&&s/(\d+)/$1>1000?0:$1/ge' filename
perl -pe 's/(?<=\s)(\d+)/$1>1000?0:$1/ge' filename