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