Select Code to Download

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

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

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

foreach my $file (@filenames)
my $filepath = "/FILEPATH/$file";
...
    print if($in);
    $in = 0 if /+-------+-------+------------+------------+-----------
+-+/;
}