my $str = $ARGV[0];
my $xp = XML::XPath->new(xml => "$str");
my $nodeset = $xp->find('//h1/title'); # 
foreach my $node ($nodeset->get_nodelist) 
{my $tag=XML::XPath::XMLParser::as_string($node);
print "$tag\n";}

##</code><code>##

<xml>
<h1><title>TH&Eacute;MATIC INTRODUCTION</title>
<p>Para goes here</p>
<h2><title>Sub level title</title>
<p>Para Text</p></h2>
</h1></xml>

##</code><code>##

undefined entity at line 2, column 13, byte 19:
<xml>
<h1><title>TH&Eacute;MATIC INTRODUCTION</title>
============^
<p>Para goes here</p>
<h2><title>Sub level title</title>
 at c:/Perl/site/lib/XML/Parser.pm line 187

##</code><code>##

use XML::Parser;
use XML::Parser::Expat;
use XML::Twig;
use XML::XPath;
undef $/;
$file = $ARGV[0];
open (IN, "<$file");
$xml = <IN>;
my $xp = XML::XPath->new(xml => "$xml");
my $nodeset = $xp->find('//h1/title'); # 

foreach my $node ($nodeset->get_nodelist) 
{
   my $tag=XML::XPath::XMLParser::as_string($node);
print "$tag\n";
}