my @lines = grep { s/^\s+//; s/\s+$//; length > 0 && !/^#/ } <$in>;