perl文本处理

[马中马]

perl如何删除一个txt文本中某个标签前的所有内容，某个标签后的内容？

原内容： <h1 id="cpName">
<span>萝卜丝笃带鱼</span>的做法详细介绍</h1>
<p>
<strong id="cpCaiXiGongXiao">菜系及功效：....

　删除id=“cpCaiXiGongXiao”前内容，实现效果：菜系及功效：...

删除</span>后的内容，效果为： <h1 id="cpName">
<span>萝卜丝笃带鱼

请教各位大侠，如何用perl实现？

[mosal]

set ter/backspace=delete

[fibbery]

一行一行的读出来匹配，去掉不要的内容，再存回文件！只能这样删除。不能在文件中直接操作，文本文件就是这样的。

[proorck6]

一行一行来吧，没有其他办法。

[mirrorspace]

[Quote=引用 2 楼 fibbery 的回复:]
一行一行的读出来匹配，去掉不要的内容，再存回文件！只能这样删除。不能在文件中直接操作，文本文件就是这样的。
[/Quote]
正解.看不出有什么规律性,问题说和不够明白吧.所以只好一行行的弄