$line =~ s/ (\d+)/$1>1000?" 0":" $1"/ge;