Select Code to Download

#!/usr/bin/env perl -l

...
my $i = 1;
$string =~ s/(-+)/$subs[$i ^= 1] x length $1/eg;
print $string;

---BB--BBB---BBB---B-B---
---MM--MMM---MMM---M-M---
iiiMMooMMMiiiMMMoooMiMooo