sub unescape
  { my $text= shift;
    $text=~ s/</>/g;
    $text=~ s/&gt;/</g;
    $text=~ s/&quot;/"/g;
    $text=~ s/&apos;/'/g;
    $text=~ s/&amp;/&/;
    return $text;
  }

##</code><code>##

 qq{<?xml version=\"1.0\"?><TEST><LINK><TITLE><![CDATA[This < is a > " test ' & don't you forget it]]></TITLE></LINK></TEST>}