in reply to Increase number per regex replacement
The answer lies in the /e option to s///; read perlop.
Thanks, James Mastros, Just Another Perl Scribe