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

##</code><code>##

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