Select Code to Download

use strict;
use warnings;
...
OOO
XXY
=cut

while( $string =~ m/((\w)\2($!\2)\w)/g )
{
...
JJJK
OOOO
=cut

$string = 'WXYYZAABCCCCADWWXYYYZ';

...
{
    print $1, "\n";
}