Select Code to Download

# Create a file array of lines
while ($line = <FILE>){
    push (@array, $line);
}

my @array = <FILE>;

# Then control the output
foreach $index (@array){
...
        print "$index";
    }
}

for (@array) {
    print unless /^(\n|\s+)$/;
}