D:\>perl -le "print $1 while 'aaabbcddddaee'=~/((.)\2*)/gs"
aaa
bb
c
dddd
a
ee