in reply to Re^4: Inherited a perl script...need help (s///)
in thread Inherited a perl script...need help

It's still hard to guess what you need, but try this:

s/(?<![0-9])\d{4}(?![0-9])/9999/g

It replaces all numbers that are exactly four digits long with 9999.

- Luke