在PERL内一次更换数行

learnscript

例如我在一文件里有这么几行，

<test>
    <![CDATA[
     [ (dtmf-star dtmf-star) ] { <option "finish"> }
    ]]>
   </test>

我要把它找出来并作些替换，

#in PERL
my $s1 = qq`<test>
    <![CDATA[
     [ (dtmf-star dtmf-star) ] { <option "finish"> }
    ]]>
   </test>`;

#$buf contains the whole text file

if( $buf =~ /$s1/m ){
        print "found $s1";
}
$buf =~ s/$s1/$s2/m;  

可我现在却怎么也找不到，估计是不能这么找，有什么办法吗？ 先谢些了。

fkiori

用s
不要用 m

alexru

s modifier