#!/usr/bin/perl -w
use strict;
$_ = "-----MMMMM------IIIII----MMM---OOOO---I---MMMM-----";
while (/(\w)(\1*)/g) {
  print "$1:".(1+pos()-length "$1$2")."-".pos."\n";
}