#!/usr/bin/perl
use strict;
use warnings;
use Regexp::Assemble;

my $skip_file = $ARGV[0] or die "Usage: $0 <skip_file>;
my $ra = Regexp::Assemble->new();
$ra->add_file($skip_file);
my $skip = $ra->re;

open(my $fh, '<', 'log.txt') or die  "Unable to open 'log.txt' for reading: $!";
while (<$fh>) {
    next if /$skip/;
    print;
}