my ($key, $variable) = split(/\s*=\s*/,$_,2);