my @junk = map {chomp $_; qr/\Q$_\E/} <JUNK>;
while (<>) {
    next if $_ =~ $junk foreach my $junk (@junk);
    print;
}