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

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