my $i = 1;
    
$i++ while ($pos = index($str, 'M', $start + $i)) == $start + $i;
    
push @pos, [$start, $start + $i-1];