Какой XML парсер на perl лучше всего подходит для задачи или другой способ решения ?

$ cat config.xml                                                                                           
<?xml version="1.0"?>                                                                                                         
<include>                                                                                                                     
  <extension name="public_did_10012345">                                                                                      
    <condition field="destination_number" expression="^(10012345)$">                                                          
    </condition>                                                                                                              
  </extension>                                                                                                                
  <extension name="public_did_1002">                                                                                          
    <condition field="destination_number" expression="^(1002)$">                                                              
      <action application="transfer" data="$1 XML internet-trunks-1002"/>                                                     
    </condition>
  </extension>
  <extension name="public_did_1003">
    <condition field="destination_number" expression="^(1003)$">
      <action application="transfer" data="$1 XML internet-trunks-1003"/>
    </condition>
  </extension>
  <extension name="public_did_1004">
    <condition field="destination_number" expression="^(1004)$">
      <action application="transfer" data="$1 XML internet-trunks-1004"/>
    </condition>
  </extension>
  <extension name="public_did_1005">
    <condition field="destination_number" expression="^(1005)$">
      <action application="transfer" data="$1 XML internet-trunks-1004"/>
    </condition>
  </extension>

</include>
$ cat pattern.xsl 
<xsl:stylesheet version="1.0" xmlns="http://www.w3.org/1999/xhtml" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="text" />
        <xsl:strip-space elements="*"/>
        <xsl:template match="include">
                <xsl:for-each select="extension">
                        <xsl:value-of select="condition/action/@data" />
                        <xsl:text>;</xsl:text> 
                        <xsl:value-of select="condition/@expression" />
                        <xsl:text>&#xa;</xsl:text> <!-- newline -->
                </xsl:for-each>
        </xsl:template>
</xsl:stylesheet>
$ xsltproc pattern.xsl config.xml 
;^(10012345)$
$1 XML internet-trunks-1002;^(1002)$
$1 XML internet-trunks-1003;^(1003)$
$1 XML internet-trunks-1004;^(1004)$
$1 XML internet-trunks-1004;^(1005)$

<action application="transfer" data="$1 XML internet-trunks-1002"/>

my $str = q{<action application="transfer" data="$1 XML internet-trunks-1002"/>};
my ($var) = $str =~ m#<action application="transfer" data="\$1 XML ([^"]*)"/>#i;

my $s2= '  <condition field="destination_number" expression="^(1003)$">';
$s2 =~ s/\s*//; # удаляем пробелы в начале строки
$s2 =~ s/["\/><\^\$()]//g; # удаляем символы
$s2 =~ s/=/ /g; # заменяем символы
$s2 =~ s/^(\w+) *(\w+) *(\w+) *(\w+) *(\w+)/$5/; # оставляем 5 ое слово
print $s2 . "\n";

use strict;
use XML::LibXML;
use XML::LibXSLT;
my $parse = XML::LibXML->new();
my $xslt = XML::LibXSLT->new();
my $xml = $parse->parse_file("config.xml");
my $input = $parse->parse_file ("pattern.xsl");

my $xslt = $xslt->parse_stylesheet($input);
my $result = $xslt->transform($xml);
my $html = $xslt->output_string($result);

open (REPORT, "> test.html")
  or die "Can't open test.html $!\n";

print REPORT $html;

close (REPORT);