请教正则表达式

请教正则表达式

有一个txt文件里面含有如下的段落:
.......
.......
.......

aaaaaaaaaabbbbbbbvvvvvvv

http://www.sina.com.cn

11111113333366666667777

.........
.........
.........

我如何取到这个段落中的"http://www.sina.com.cn"这部分呢,希望指导!!


[Copy to clipboard] [ - ]
CODE:
while(<>)
{
print if /^http/;
}

命令行下做:

$ perl -ne 'print if /^http/' file_name.txt