$ perl -e 'print $1,$2,"\n" while ( "aabbaab" =~ /(.)(\1)/g )'
aa
bb
aa

##</code><code>##

$ perl -e 'print $&,"\n" while ( "aabbaab" =~ /(.)\1/g )'
aa
bb
aa