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

##</code><code>##

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

##</code><code>##

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