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

#to

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