push @array, $1 while  /((.)\2*)/g;