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