Re: Increment a string with letters and numbers

The following substitution should do what you want:

s/(\d+)$/my $y = $1; ++$y/e
[download]

In use with your specific example:

$ perl -Mstrict -Mwarnings -E '
    my $x = q{EVO:0000023};
    $x =~ s/(\d+)$/my $y = $1; ++$y/e;
    say $x
'
EVO:0000024
[download]

And, assuming you want 0000099 to roll over to 0000100, this works unchanged:

$ perl -Mstrict -Mwarnings -E '
    my $x = q{EVO:0000099};
    $x =~ s/(\d+)$/my $y = $1; ++$y/e;
    say $x
'
EVO:0000100
[download]

-- Ken