perl -le '/$c/||$i++, $d[$i].=$c=$_ for split "","aaaabbbccdaaa"; print "@d"'
aaaa bbb cc d aaa