You don't have to iterate to get each variable; just put the returned values into an array:

    my @variables = $str =~ /(\w+\=)\&/g;
    print "$_\n" foreach @variables;
[download]