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