my ($var,$val) = /^\s*(.*?)\s*=\s*(.*)/; $conf{$var} = $val;