lanx@nc10-ubuntu:~$ perl -de0
...
  DB<1> $a="aaAabBAAa";
 
  DB<2>  print join " ",($a =~ /((.)\G\2|(.)\3)/gi) 
aa  a aA a  Aa A  bB  b AA  A Aa A