如何用perl匹配出来IP地址?我会用python

如何用perl匹配出来IP地址?我会用python
大家好,打扰一下,我刚学Perl,想把ipconfig输出的IP地址匹配出来,不知到该怎么做.我会用python.python是这样的.
IPConfig.exe
Windows 2000 IP Configuration

Ethernet adapter 本地连接 2:

Connection-specific DNS Suffix . :
IP Address. . . . . . . . . . . . : 192.168.1.51
Subnet Mask . . . . . . . . . . . : 255.255.255.0
Default Gateway . . . . . . . . . : 192.168.1.50

以下三句就可以把IP地址给找出来
import os,sys,re
c=os.popen('ipconfig').read()
re.findall('IP.*:\s(.*)',c)
用perl怎么实现呢?
$result=`ipconfig.exe`
然后呢?

my @ipconfig = `ipconfig.
my @ipconfig = `ipconfig`;

my @greped = grep( /\s*IP.*\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/, @ipconfig );

( my $rel_ip = $greped[0] ) =~ s/.*:\s*(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/$1/;

print $rel_ip, "\n";


---------------------------------------------------------------
就是个正则表达式，我这个凑合着用-___-!!

my @ipconfig = `ipconfig.
my @ipconfig = `ipconfig`;
for @ipconfig {
print $1 if ( /\s*IP.*(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/ ) ;
}

如果只是在命令行上运行我会这么写...

/\s*IP.*:\s+(.*)/ && print $1 for (`ipconfig`) ;

print (`ipconfig` =~/\s*.
print (`ipconfig` =~/\s*IP.*?(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/);

汗...