@runs = do { my $i; grep ++$i%2, 'aaabbcddddaee' =~ /((.)\2*)/g }; print "@runs\n"; __END__ aaa bb c dddd a ee