$_ = '--BBB----BB--B-------B--B--BBBB---B--';

s/-+/--$|x$&=~y---c/ge;y/B10/Mio/;

say;

##</code><code>##

iiMMMooooMMiiMoooooooMiiMooMMMMiiiMoo