if (/gateway/ || /TIMESTAMP/) { $count = $count + 1; print OUT; print "Extracting line ...\n"; } #### if (/gateway/ && /TIMESTAMP/) { $count = $count + 1; print OUT; print "Extracting line ...\n"; } #### my ($exclude_re) = map qr/$_/, join '|', map quotemeta, @names; #### use Regexp::List qw( ); my $exclude_re = Regexp::List->new()->list2re(@names); #### if (/gateway/ && /TIMESTAMP/ && !/$exclude_re/) { $count = $count + 1; print OUT; print "Extracting line ...\n"; }