Select Code to Download

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