if (/gateway/ || /TIMESTAMP/) { 
            $count = $count + 1; 
            print OUT; 
            print "Extracting line ...\n"; 
        }

##</code><code>##

        if (/gateway/ && /TIMESTAMP/) { 
            $count = $count + 1; 
            print OUT; 
            print "Extracting line ...\n"; 
        }

##</code><code>##

my ($exclude_re) = map qr/$_/,
                   join '|',
                   map quotemeta,
                   @names;

##</code><code>##

use Regexp::List qw( );
my $exclude_re = Regexp::List->new()->list2re(@names);

##</code><code>##

        if (/gateway/ && /TIMESTAMP/ && !/$exclude_re/) { 
            $count = $count + 1; 
            print OUT; 
            print "Extracting line ...\n"; 
        }