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;
  }