如何使用perl实现多行内容替换。

问题如下
要处理的内容 这是html元素，我想使用替换而非匹配捕获的方法得到如下结果 想了半天也没有想到,
请各位perl 粉 帮忙写个替换实现。

把下面的程序打印成你想要的文件应该可以实现你要的功能。
open FILEIN, "<c.txt";

while(<FILEIN>){
   if(!/\<\/h4\>/){
       chomp;
       $lines .= $_;
   }
   else{
       $lines .= $_;
       chomp $lines;
       $lines =~ s/\<.*?\>//g;
       print $lines."</span></span></h4>\n";
       $lines = "";
   }   
}