in reply to Re^2: Split a string based on change of character
in thread Split a string based on change of character
Or even: $_='zyxxaabbbcccccc'; push @a, $1 while /((.)\2*)/g;
Which doesn't destroy original data.
In Section
Seekers of Perl Wisdom