use strict;
use warnings;

my $string = 'ABCDEEFGHIJJJKLMNOOOOPQRSTUVWXXYZ';

print $1, "\n" while $string =~ m/(([\w])(?=\2).(?!\2).)/g;

##</code><code>##

EEF
JJK
OOP
XXY