in reply to Split a string based on change of character
my $str= "AAABBCCCC";
push @x, $1 while $str =~ /((.)\2*)/g;
My fellow monks
Can't tell (I'm NSA/FBI/HS/...)
Others (explain your deviation)
Results (150 votes). Check out past polls.