push @array, $1 while  /((.)\2*)/g;
[download]

nicely demonstrates the difference between capturing for backreference and capturing for return value. I wonder if Perl 7 will make that distinction?

-QM
--
Quantum Mechanics: The dreams stuff is made of