$ perl -e '$u="http://www.domain.com/hi.html?a=b&c=d";
 print $u,$/;
 $u=~s/(.*?)\?.*/$1/;
 print $u,$/;'

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