PerlとXPathでXMLファイルの処理

XMLファイルに対して正規表現で処理をしていたのを、XPathを使ってもっと楽にできないかとやってみました。
XMLとはどんなものか、という非常に初歩的なことしか分からない超初心者ですが、Active PerlのパッケージシステムからXML::XPathのモジュールをインストールして、小さなテストファイルでやってみたところ、なんとかなりました。
今更ですが、XMLエディターで構造を見て、あとはXPathでノード名を使って処理というのが簡単な処理方法だと実感しました。