$_ = 'abcdegedfc'; # Try it without the g, too.
my $re;
$re = qr/((.)(?:(??{$re})|.?)\2)/;
print "$1\n" while (/(?=$re)/g);