my $string = 'IIIIIIIIIIIMMMMMMMMMMMMOOOOOOOOOOOOMMMMMMMMMIIIIIIIII';
my $count = () = $string =~ /M/g;
print $count;