Help for this page
my $re; $re = qr/((.)(??{ $re })\2|.)/; ... local $\ = "\n"; # add newline to print substr($s, $i) =~ /^$re/ and print $1; }
my $s = 'abcdegedfc'; foreach my $i (0 .. length($s) - 1) { ... substr($s, $i) =~ /((.*).?(??{ quotemeta reverse $2 }))/ and print $1; }
www.com | www.net | www.org
No recent polls found