use warnings;
use strict;
use autodie;
use File::Tail;

local $|++;

open FH, "<rules.txt";
my $rules_re = join '|', <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())) {
    print $line if ($line=~/^Request:($rules_re)/i);
}