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.
  • Comment on Re^3: Split a string based on change of character

In Section Seekers of Perl Wisdom