my @runs;
push @runs,$1 while $string=~/((.)\2*)/gs;