$string = "johnq.smith1"; $string =~ /(\d+$)/ or die "no number"; $1++; print $string, $/; # WRONG