m{^http://(.*?)/}

#to

m{^http://(.*?)(/.*)$}

##</code><code>##

print $remote "GET $url HTTP/1.0\nHost: $host" . $BLANK;