print map {"$_\n"} ($str=~/\w+=/g);

##</code><code>##

my $out='';
while ($str=~/(\w+=)\&/g){$out.=sprintf "%s\n",$1};
print $out;

##</code><code>##

print map {"$_\n"} ($str=~/(\w+=)\&/g); #Thanks nferraz