c:\@Work\Perl\monks>perl -wMstrict -le
"$_ = 'iiiiiiiiMMMMMMMMMMMooooooooooooMMMMMMMMMMiiiiiMMMMMMMMoooo';
 my $count =()= $_ =~ m{ M+ }xmsg;
 print $count;
"
3