perl文本处理

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

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

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

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

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

set ter/backspace=delete

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