in reply to split command

my ($key, $val) = split(/=/, 'MYKEY=MYVAL=2', 2);

Replies are listed 'Best First'.
Re^2: split command
by redss (Monk) on Feb 21, 2007 at 18:49 UTC
    Thank you!

      or

      my ($key, $val) = 'MYKEY=MYVAL=2' =~ /^([^=]*)=(.*)/s;
        or perhaps

        my ($key, $val) = split m{=(?=.*=)}, q{MYKEY=MYVAL=2};

        Cheers,

        JohnGG