use File::Tail; 
$|++; 
open FH, "<rules.txt";
@rules=<FH>; 
close FH;
$name="C:\\users\\Mizo\\desktop\\log.txt; 
 $file=File::Tail->new(name=>$name, maxinterval=>1,interval=>1, adjustafter=>1); 
 while (defined($line=$file->read)) 
{
for (@rules) {
       $rule=$_;

 if($line=~/^Request:($rules)/i){ 
print "$line"; 
} }