in reply to Split a string based on change of character
my $str= "AAABBCCCC";
push @x, $1 while $str =~ /((.)\2*)/g;
PerlMonks, of course - how could you ask?
Games & puzzles
Arts & music
Whichever pays my bills
Results (259 votes). Check out past polls.