$ perl -e '$_="aaabbccccddeee"; print $1,$/ while /((.)\2*)/g'
#                                                  ^^
#                                                  ||
#                                                  |+--- \2
#                                                  |
#                                                  \1
aaa
bb
cccc
dd
eee