Select Code to Download

while (<$IN>) {
    next if /^\s*$/;   # remove empty lines
...
    last if /File processed/;
    # ... now do the actual processing of useful lines
}