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