$ perl -e '$u="http://www.domain.com/hi.html?a=b&c=d";
 print $u,$/;
 ($ub,$ue)=split(/\?/,$u,2);
 print "$ub :: $ue",$/;'

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