Re^4: Can you write a faster code to perform this task?

[Lotus1]

I tried it with replacing 'M' with 'M' and it worked. No need to worry about exotic characters.

use 5.014;

say 'iiiiiiiiMMMMMMMMMMMooooooooooooMMMMMMMMMMiiiiiMMMMMMMMoooo' 
      =~ tr/M/M/sr=~tr/M//;   # => prints: 3

[BrowserUk]

No need for a new perl and the /r option either. This works fine:

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

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

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