perl -ple "s/(?<!^)\b(\d+)/$1>1000?0:$1/eg" filename