Help for this page
sub search { my $terms = shift; my $pattern = join "|", split " ", $terms; ... my @matches = grep { /$pattern/ } @names; return \@matches; }
www.com | www.net | www.org
No recent polls found
