push @runs, $1 while 'aaabbcddddaee' =~ /((.)\2*)/g;
print "@runs\n";