Select Code to Download

while ( <$fh> ) {
    chomp;           # Remove trailing newlines (a subset of \s)
...
                     # you already skipped lines with nothing
                     # in the previous statement.
#......