perl -ple'
    BEGIN { %neg = qw( i o o i ) }
    s/([io])M*\K(\.+)/   $neg{$1} x length($2) /eg;
    s/(\.+)(?=M*([io]))/ $neg{$2} x length($1) /eg;
'