while (defined(my $line = <INPUT>)) {
  print $line if not grep {line =~ /\Q$_\E/} @list;
}