DB<107> ($str,$n)=split /:/,'EVO:0000023'
 => ("EVO", "0000023")

  DB<108> print "$str:",++$n
EVO:0000024

  DB<109> print "$str:",++$n
EVO:0000025