怎么取得一个url的前面部分

如何取得一个url的前面部分
例如：完整网址是：http://news.sina.com.cn/china/sz/index.html
我想要http://news.sina.com.cn
用preg_match匹配，第一次发帖哈~！多多关照

[解决办法]
要加上前面的http://的话，改一下。。。



#! perl -w
$_=<>;
chomp;

$_=~ /(http:\/\/([^\/]*))\/.*/i;
print "$1\n";