my $filter = '/var/tmp/messages_filter';

open FILE, '<', $filter or error();

my $grepstring = join '|', map { chomp; $_ } <FILE>
    or print "<TR><TD>File is empty</TD></TR>";

my $filename = '/var/tmp/log.out';

open FILE, '<', $filename or error();

my @file1;
while ( <FILE> ) {
    next if /$grepstring/o;
    push @file1, $_;
    }

print "@file1";