【请教】多行匹配的问题

有如下一段文本：

  <!-- PilotMessageSettings -->
  <PilotMessageSettings>
    <PilotMessage>
      <add key="EventMessage"><![CDATA[
      <!--Please note that ... <a href="#">&lt;old &gt;</a>.-->
      ]]></add>
      <add key="PortfolioMessage">
      <![CDATA[
              Please note that....
          ]]></add>
      <add key="PortfolioAlertMessage">
      <![CDATA[
          Please note that ...
            ]]></add>

希望把CDATA前面<>的内容找出来，得到如下的内容，
<add key="EventMessage">
<add key="PortfolioMessage">

该怎么写呢？试了好久都没成功, 我这样写的：

my $content = join '', <DATA>;
while($content=~/ (\<.*?\>) \Q<![CDATA[\E .*? \Q]]>\E /gxs){
        print "************$1\n";
}
输出总是不对

本帖最后由 zhlong8 于 2010-10-19 23:00 编辑
输出为 很粗糙，但是能用，多行匹配应该用 m 而不是 s 的

回复 zhlong8


    太感谢了，原来是用m，不是s
    没太看懂你的正则，能讲讲啥意思吗？谢谢

本帖最后由 zhlong8 于 2010-10-20 00:06 编辑
解释下来更好的一个RE应该是

回复 zhlong8

多谢zhlong8，受教了
晚安了哦~~~~