Select Code to Download

print $line until(!($line =~ /\s+/))

use strict;
use warnings;
...
{
   print $line unless(!($line =~ /\w+/));
}