INPUT: while (<IN>) {
 for my $match (@list) {
  next INPUT if /$match/;
 }
 print;
}


##</code><code>##

my $re = join "|", @list;
while ... {
 print unless /$re/;
}