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