while (<CONFIG>) 
{
    chomp;
    s/^\s+//;
    s/\s+$//;
    next unless length;
    my ($var, $value) = split(/\s*=\s*/, $_, 2);
    $cfg{$var} = $value;
}