in reply to Split a string based on change of character

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

[download]

- tye        

In Section Seekers of Perl Wisdom