I don't know if it is any more elegant....

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

In reply to Re: Puzzlement in Splitsville by thundergnat
in thread Puzzlement in Splitsville by tlm

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":