Select Code to Download

print FILE for @lines;

...
foreach my $line (@lines) {
    print FILE $line
}

print FILE "$_\n" for @lines;

...
foreach my $line (@lines) {
    print FILE "$line\n";
}

print OUTPUT_FILE while <INPUT_FILE>;

...
    # manipulation of $line goes here.
    print OUTPUT_FILE $line;
}