Select Code to Download

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

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