各位大神，有谁用过perl解析XML文件？

设计思路是这样的，如果在子标签中存在文本内容，就输出父标签的文本，脚本该怎么写？