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