Use the directory functions: opendir, closedir and readdir.

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

You can use the scalar Range Operators

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

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

use flag like below,

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 /+-------+-------+------------+------------+-----------
+-+/;
}
[download]