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