there's a good non-regex way (one of many, I'm sure) :

use URI::URL;
$url1 = new URI::URL 'http://perlmonks.org/index.pl?node=boo_radley' |
+| die;
print  join "\n",$url1->crack();
[download]

see URI::URL for more