Select Code to Download

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

$ perl -Mstrict -Mwarnings -E '
    my $x = q{EVO:0000023};
...
    say $x
'
EVO:0000024

$ perl -Mstrict -Mwarnings -E '
    my $x = q{EVO:0000099};
...
    say $x
'
EVO:0000100