$temp = $mech->uri;
(undef, $uri) = split (/(\?.*)/, $temp);