if($line=~/^Request:($rules)/i){

##</code><code>##

if($line=~/^Request:($rule)/i){

##</code><code>##

foreach (@rules ) {
    $rule = $_;

##</code><code>##

foreach my $rule (@rules)

##</code><code>##

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);
}