my @lines = map { local $_ = $_; s/^\s+//; s/#.*//; s/\s+$//; length($_) ? $_ : () } <$in>;