Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
my $string = 'ABCDEEFGHIJJJKLMNOOOOPQRSTUVWXXYZ';

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

Select or download this
```
EEF
JJK
OOP
XXY
```