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