Select Code to Download

$string='III...MMMMMOOOO....MMMIIIII';

III...MMMMMOOOO  --> IIIIIIMMMMMOOOO

OOOO....MMMIIIII --> OOOOOOOOMMMIIIII

$string=~s/\.+M+i+/oMi/g;

III...MMMMMOOOOoMi