in reply to Elegant way to split into sequences of identical chars?

clearly not as clean as the regexp solutions, but just for laughs
perl -le '/$c/||$i++, $d[$i].=$c=$_ for split "","aaaabbbccdaaa"; prin
+t "@d"'
aaaa bbb cc d aaa

[download]

In Section Seekers of Perl Wisdom