m[^([^#][^=]+)=([^#\n]*)] and $config{ $1 } = $2 while <DATA>;