if ($alias =~ s/(\d+)$/$1 + 1/e) {
    print $alias;
  } elsif ...