#!/usr/bin/perl 
use warnings; 
use strict; 
 
my $file = "ip.txt"; 
open (FH, "< $file") or die "Can't open $file for read: $!"; 
my @lines=<FH>; 
close FH or die "Cannot close $file: $!"; 
 
my $regexp='\\b('.join '|',(map { quotemeta($_) } @lines).')\\b'; 
 
 
while (<>) { 
        for my $line (@lines){ 
                #if ($_ =~ m/.*$line.*/g) { 
                if ($_ =~ m/$regexp/g) { 
                        print $_; 
                } 
        } 
}