Help for this page
DB<6> $x = 'helloworldhellohellohihellohiworldhi' ... hi h l
DB<8> print "$1\n" while $x =~ /(\w{2,})(?=.*\1.*\1)/g hello hello hi
sub repeat_finder_re { my $n = shift; '(\w{2,})(?=' . ('.*\\1'x($n-1)) . ')' }
www.com | www.net | www.org
No recent polls found