#! perl -slw
use strict;
use Time::HiRes qw[ time ];

my $start = time;
my $count=0;
while( <DATA> ) {
    while( /(M+)/g ) {
      $count++;
    }
}
print $count."\n";

printf "Took %9f secs\n", time() - $start;

__DATA__
iiiiiiiiMMMMMMMMMMMooooooooooooMMMMMMMMMMiiiiiMMMMMMMMoooo
iiiiiiiiMMMMMMMMMMMooooooooooooMMMMMMMMMMiiiiiMMMMMMMMoooo
... 79998 more lines as above ...

##</code><code>##

C:\test>junk
240000

Took  0.199589 secs