$str =~ /str=([^&])*/;

There's a typo in that regex, you want the star inside the parens. (You are now putting the last non-ampersand following str=, if any, into $1.)

— Arien