++: /\A[a-z0-9]*\z/ -> /\A[a-z0-9]*\z/

##</code><code>##

kabel@linux:~> perl
my $num = "1hiho";
print ++ $num, $/;
2
kabel@linux:~>