perl字符串匹配的文件
现在有个文件里面有一行是PPPP.Mergemount=10;
我想获得后面的10.
代码如下
use LWP;
my $ua = LWP::UserAgent->new;
$auURL="www.XXXX.com";
my $rsp = $ua->get($auURL);
if ($rsp->is_success)
{
$_ = $rsp->content;
}
$Id= "PPPP";
if (){
}
这里面该怎么写？

[解决办法]
if (/PPPP\.Mergemount=(\d+)/gm) {
print "$1\n";
}