DB<3>  print $&," " while ($a =~ /(.)\G\1|(.)\2/gi) 
aa aA Aa bB AA Aa