my @runs;                                      
push @runs, [ $1, $-[1] ] while $sequence =~ m{
  ((.) (?<! (?= \2\2) ..) \2{2,6} (?! \2))     
  }xmsg;