Select Code to Download

while (<DATA>) { 
  chomp; 
...
  next unless /([^\s]+)/; 
  push(@enabled_lines, $1); 
}

while (<DATA>) { 
  chomp; 
  s/#.*$//; 
  push(@enabled_lines, $1) if /([^\s]+)/;
}

while (<DATA>) { 
  chomp; 
...
  push @enabled_lines, $1
    if /(\S+)/;
}