Perl多线正则表达式

{
"_id" : ObjectId("523a58c1e4b09611f4c58a66"),"_items" : [
    {
        "adGroupId" : NumberLong(1230610621),"keywordId" : NumberLong("5458816773")
    },{
        "adGroupId" : NumberLong(1230613681),"keywordId" : NumberLong("3204196588")
    },"keywordId" : NumberLong("4340421772")
    },{
        "adGroupId" : NumberLong(1230615571),"keywordId" : NumberLong("10525630645")
    },{
        "adGroupId" : NumberLong(1230617641),"keywordId" : NumberLong("4178290208")
    }
]}

我想从de NumberLong()里面取数字.起初我只需要关键字Id,并设法完成它：

cat listado.txt |& perl -ne 'print "$1," if /"keywordId" : NumberLong("?(d*)"?)/' keywordIds.txt

这会生成带有数字的逗号分隔文件.我现在还需要de adGroupIds,所以我正在尝试以下匹配的正则表达式而没有运气：

cat ./work/listado.txt |& perl -ne 'print "$1-$2," if /"adGroupId" : NumberLong("?(d*)"?),s*"keywordId" : NumberLong("?(d*)"?)/m'

正则表达式匹配,但我相信perl不会做多行,即使我正在使用/ m.

有任何想法吗？