Be sure to use quotemeta or \Q..\E

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

perl's regexes are not as fast as grep's. But this will do, probably fast enough.
---
Berik