while (<$f>){
  chomp;
  s/^\s+//;
  s/\s+$//;
  next unless length;
  next if /^#/;
  push @lines, $_;
}