如何用Perl提取网页的内容

Netwrom

我想把如下网址的内容提取出来,我就是想提取里面的IP地址和端口号,方便我每次都复制的操作.保存为记事本最好了
我在Google搜索告诉我用LWP::Simple
可是我实在想不出来了.

my $begin="IPort";
my $end="HTTP";
use LWP::Simple;
my $url="http://www.cnproxy.com/proxy1.html";
my $doc=get($url);
$doc=~m/$begin(.*)$end/is;
print $1;#此时的$1可能就是你需要的内容了


在网上学的.可是不行,望高手回复

http://www.cnproxy.com/proxy1.html