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