opendir DIR, $dir or die "cannot open dir $dir: $!";
my @filenames= readdir DIR;
closedir DIR;

##</code><code>##

open my $fh, "<", $file or die $!;

while (<$fh>) {
    print if /+=======+=======+============+============+============+/ .. /+-------+-------+------------+------------+------------+/;
}

##</code><code>##

foreach my $file (@filenames)
my $filepath = "/FILEPATH/$file";
open my $fh, "<",$filepath or die("could not open log file: $!");
my $in = 0;

while(<$fh>)
{
    $in = 1 if /+=======+=======+============+============+============+/;
    print if($in);
    $in = 0 if /+-------+-------+------------+------------+------------+/;
}