Help for this page

Select Code to Download

Select or download this

local $/;
my $contents = <IN>;
close IN;
...
    next if -1 == index $contents, $_;
    push @found, $_;
}

Select or download this
my @found = grep {-1 != index $content, $_} @array;