$hash->{url} = ($firstline =~ m|(http://\S+)|)[0];
    if($hash->{url}=~/\?(.+)/s){
        $hash->{getdata}=$1;
        }
...
    $hash->{url}=~s/\?.*//s;