eval: $_='zyxxaabbbcccccc'; push @a, $1 while s/((.)\2*)//;[@a] <_ZofBot> Zoffix: ['z','y','xx','aa','bbb','cccccc']