Select Code to Download

$ perl -wle'print for "aabbaab" =~ /((.)\2+)/sg;'
aa
...
b
aa
a

$ perl -wle'print $1 while "aabbaab" =~ /((.)\2+)/sg;'
aa
bb
aa