$alias = "johnq.smith1";
$alias++;

##</code><code>##

"johnq.smith2"

##</code><code>##

$alias = "johnq.smith1";

if ($alias =~ s/(\d+$)//) {
  $alias .= $1++;
  # $alias is now "johnq.smith2"
}