Select Code to Download

sub search {
    my $terms = shift;
    my $pattern = join "|", split " ", $terms;
...
   my @matches = grep { $names[$_] =~ /$pattern/ } 0..$#names;
    return \@matches;
}