Re^2: Try this in Regexp palindrome

For me, it always matches one character; it never matches a nontrivial palindrome.

use Regexp::Common;
$_ = 'abcdegedfc';
while (/($RE{lingua}{palindrome})/g) {
  print "Got $1\n";
}
__END__
Got a
Got b
Got c
Got d
Got e
Got g
Got e
Got d
Got f
Got c
[download]

Caution: Contents may have been coded under pressure.

Comment on Re^2: Try this in Regexp palindrome Download Code