Select Code to Download

use strict;

...
    }
}
close IN;

These are the first
...
set of lines

which are to be extracted

elsif ($count && $_ !~ /^$/)