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

##</code><code>##

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