...
my @junk = map {chomp $_; qr(\Q$_\E)} <JUNK>;
while (<>) {
    # Added / Modified
    my $line = $_;
    next if $line =~ $_ foreach (@junk);
    # End update
    print;
}