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