Select Code to Download

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

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

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

foreach my $rule (@rules)

use warnings;
use strict;
...
while (defined($line=$file->read())) {
    print $line if ($line=~/^Request:($rules_re)/i);
}