Re: Split a string based on change of character (also)

[tye]

in reply to Split a string based on change of character

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