Im not really sure if this is what you have in mind:

my $string = 'aaabbcddeef';
while($string =~ m/((.)\2*)/gi) {
  print "$1\n";
}
__OUTPUT__
aaa
bb
c
dd
ee
f
[download]