my %CFG;

...

while(<CONFIG>) {
   next if (/^\s*(#.*)?$/);
   my ($key, $value) = split(/[\s\t]*=[\s\t]*/);
   $CFG{$key} = $value;
}