Help for this page

Select Code to Download

Select or download this

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