Help for this page

Select Code to Download

Select or download this

sub unescape
  { my $text= shift;
...
    $text=~ s/&amp;/&/;
    return $text;
  }

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