#!/usr/local/bin/perl5 -w

use XML::Twig;

my $twig = new XML::Twig( TwigRoots => { "LINK" => 1 } );
$twig->parse( "<?xml version=\"1.0\"?><TEST><LINK><TITLE>This &lt; is a &gt; &quot;test&apos; &amp; don&apos;t you forget it</TITLE></LINK></TEST>" );
my $root = $twig->root;
my @links = $root->children;
print $links[0]->first_child_text( "TITLE" ), "\n";


Results:
This &lt; is a &gt; &quot;test&apos; &amp; don&apos;t you forget it