if ($s =~ /M/) {
    print "case1\n";
} else {
    print "case2\n";
}