my $re = join ("|", map {quotemeta} @list);
while (...)
{
     next if /$re/;
     print;
}