Select Code to Download

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

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