@a = split /(?<!\\)(\\\\)*&/, "a=1&b=2\\&3&c=4";
$a[$_] .= splice @a, $_ + 1, 1 for (0..($#a/2));