$string = "johnq.smith1"; $string =~ /(\d+$)/ or die "no number"; match($string, 1)++; print $string, $/; 
sub match : lvalue { my $n = $_[1] || 0; substr $_[0], $-[$n], $+[$n] - $-[$n]; }