$filename = "/var/tmp/log.out";
open(FILE, $filename) || &error();
@file = <FILE>;
close(FILE);

$filter = "/var/tmp/messages_filter";
open(FILE, $filter) || &error();
@filefilter = <FILE>;
close(FILE);

START_HTML

$lines_in_filter = @filefilter;
if($lines_in_filter != 0){

foreach $filterline (@filefilter){
        chomp($filterline);
        if ($grepstring ne "" ){
                $joiner = "&&";}
                $grepstring = "$grepstring $joiner (!/$filterline/)";
}
}
else{
        print "<TR><TD>File is empty</TD></TR>";
        }

#print "$grepstring";
#print "(!/243001/) && (!/454097/) && (!/858035/) && (!/872937/) && (!/427199/)";

@file1 = grep($grepstring, @file);

#@file1 = grep((!/243001/) && (!/454097/) && (!/858035/) && (!/872937/) && (!/427199/), @file);

print "@file1";