Select Code to Download

    $sss = "M9";
    $sss =~ m/(\d+)/;
        print $1;    # -->  prints 9
...
    $sss = "Mm";
    $sss =~ m/(\d+)/;
    print $1; #-->  still prints 9

    $sss = "M9";
    if ($sss =~ m/(\d+)/ && $1 ne undef){
        print "Value Matched on: $1";    # prints Value Matched on: 9
...
    if ($sss =~ m/(\d+)/ && $1 ne undef){
        print "Value Matched on: $1";    # if statement is not entered
+; prints nothing
    }

    $sss = "9 9";
    if ($sss =~ m/(([A-Za-z]*)(\d*)/ && $1 ne undef){
        print "Value Matched on: $1";    # if statement is not entered
+; prints nothing
    }