Re^2: Increment a string with letters and numbers

Slightly shorter version of Ken's idea, taking advantage of auto-localization of $_:

>perl -E "$_=shift @ARGV; say qq|Before: $_|; s/(\d+)/++($_=$1)/e; say
+ qq|after : $_|" EVO:00000000022
Before: EVO:00000000022
after : EVO:00000000023
[download]

"I'm fairly sure if they took porn off the Internet, there'd only be one website left, and it'd be called 'Bring Back the Porn!'"
-- Dr. Cox, Scrubs

Comment on Re^2: Increment a string with letters and numbers Download Code