http://qs321.pair.com?node_id=629269


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.