push @splitted, $1 while $str =~ /([^=]+=[^=]+)/g;


##</code><code>##

my @temp = split(/=/, $str);
push @splitted, join("=", splice(@temp,0,2)) while @s;