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