my ($key, $val) = ( $pair =~ /^([^=]+)=(.*)/s );