if($string=~/(.*?)(\.+)(M+i+)/i) 
{
	$first=$1; 
	$change=$2; 
	$len_change=length($change); 
	$third=$3; 

	print $first;
	print 'O' x $len_change;
	print $third;

	print "\n";
}

##</code><code>##

III...MMMMMOOOOOOOOMMMiiiii