Perl regex_replace替换某些html标记

有没有办法将BR标签和/或DIV标签转换为新行，以便在mailto中使用时正确格式化？我想我应该寻找任何P、DIV和BR标记，并用新行字符替换它们。因此，在任何有结束标记的地方，放置新行字符并移除开始标记。完成上述操作后，我将使用remove_html=“1”删除其余html，但我希望保留段落格式

---

我认为可以使用regex_替换来完成，但我不确定如何编写它。有人知道吗？

不要使用正则表达式解析HTML文件，使用HTML解析器（HTML:：TreeBuilder或类似的可以进行行内更改的东西）模块，或者在这种情况下，更好地使用XSLT转换。

相关的我会使用XSLT进行这些转换…远离正则表达式。。。。。或者：放下正则表达式，没有人受伤。。。