Select Code to Download

foreach my $line (@$array) {

    chomp $line;

print "$line**";

my @array = split(/\t/, $line);

...}

{
    local $/ = ""; # Set paragraph mode
    foreach my $line .............
    ....}
}