my %conf;
while (<FILE>) {
   chomp;
   my ($k,$v) = $_ =~ /^([^=]+)=(.*)$/;
   $conf{$k} = $v if $k;
}