130 sub parsepages { 131 my $filename = "portlentEntities.xml"; 132 133 my $p = XML::Twig->new( 134 twig_handlers => { 135 '//*[@name="FilterName"]/*/text()' => sub {$_->print} 136 }, 137 ); 138 139 $p->parsefile($filename); 140 }