Re: Puzzlement in Splitsville

[thundergnat]

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

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

[rir]

Update: I misread the question.

thundergnat's pattern doesn't work for me with my 5.6.1, it puts every character into an element.

I had: push @ans, $1 while $str =~ /(.{3}|.{1,2}$)/g;

Be well,
rir