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

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

##</code><code>##

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

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

##</code><code>##

	$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
	}