Select Code to Download

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

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