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