my ($key, $val) = 'MYKEY=MYVAL=2' =~ /^([^=]*)=(.*)/s;
my ($key, $val) = split m{=(?=.*=)}, q{MYKEY=MYVAL=2};