my $str= "AAABBCCCC";
my @x;
push @x, $1 while $str =~ /((.)\2*)/g;