Select Code to Download

while (<>)
{
...
   next if /^\s*$/;   # empty line
   do_the_work($_);
}

while (<>)
{
...
      do_the_work($_);
   }
}