use XML::XPath;
 my $xp = XML::XPath->new(filename => 'mathml.txt');
 my $nodeset = $xp->find('/mml:math/*');

 foreach my $node ($nodeset->get_nodelist) {
	$l = XML::XPath::XMLParser::as_string($node),
}