my( $server ) = $url =~ m[(^http://[^/]+/)];