perl字符串匹配的资料

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";
}