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

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

print "\$1 holds $1!\n";