Help for this page

Select Code to Download


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