Select Code to Download

if( /^(\S+)$/)
   {print OFILE"$1\n\n"}

    # this may help
    while (my $line = <FILE>) {
...
   }
   close FILE;
   close OFILE;