my $p = "--BBB----BB--B-------B--B--BBBB---B--";

my @x = qw( i o );
my $x = 0;

$p =~ y/B/M/;
$p =~ s/(-+)/$x[$x++%2]x length($1)/ge;

say $p;