# find_strings.pl

use strict;
use warnings;

my $patfile = shift;
my @pats = do { local @ARGV = ( $patfile ); <> };
chomp @pats;
my $pat = join '|', @pats;

while (<>)
{
	/\b($pat)\b/i and print;
}