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