s/^\s+//, s/\s+$//
    for my @lines= grep ! /^\s*#/, <$in>;