my @runs;
push @runs, [ $2, $-[2] ] while $s =~ m{ 
  (?: \G | (.) (?! \1)) \K ((.) \3{2,6} (?! \3))
  }xmsg;