$ perl -le'$_ = "EVO:0000023"; print; substr( $_, -7 )++; print' EVO:0000023 EVO:0000024