Select Code to Download

$ perl -v
This is perl, v5.6.1 built for i586-linux
...
 print $u,$/;
 $u=~s/(.*?)\?(.*?)/$1/gs;
 print $u,$/;'

http://www.domain.com/hi.html?a=b&c=d
http://www.domain.com/hi.htmla=b&c=d

$ perl -e '$u="http://www.domain.com/hi.html?a=b&c=d";
 print $u,$/;
...

http://www.domain.com/hi.html?a=b&c=d
http://www.domain.com/hi.html

$ perl -e '$u="http://www.domain.com/hi.html?a=b&c=d";
 print $u,$/;
...

http://www.domain.com/hi.html?a=b&c=d
http://www.domain.com/hi.html :: a=b&c=d