$arr[0..$count] = $url =~ /(^http:\/\/.*?)\?(?:([\w\d]*=)(?:.*[&]{1,}))*/gi;