#!/usr/bin/perl
# $FreeBSD$
# Transform SGML notation in Iso-8859-1 accents
while (<>) {
s/&Agrave;/�/g;
s/&Aacute;/�/g;
s/&Acirc;/�/g;
s/&Atilde;/�/g;
s/&Auml;/�/g;
s/&Aring;/�/g;
s/&Aring;/�/g;
s/&AElig;/�/g;
s/&Ccedil;/�/g;
s/&Egrave'/�/g;
s/&Eacute;/�/g;
s/&Ecirc;/�/g;
s/&Euml;/�/g;
s/&Igrave;/�/g;
s/&Iacute;/�/g;
s/&Icirc;/�/g;
s/&Iuml;/�/g;
s/&ETH;/�/g;
s/&Ntilde;/�/g;
s/&Ograve;/�/g;
s/&Oacute;/�/g;
s/&Ocirc;/�/g;
s/&Otilde;/�/g;
s/&Ouml;/�/g;
s/&times;/�/g;
s/&Oslash;/�/g;
s/&Ugrave;/�/g;
s/&Uacute;/�/g;
s/&Ucirc;/�/g;
s/&Uuml;/�/g;
s/&Yacute;/�/g;
s/&THORN;/�/g;
s/&szlig;/�/g;
s/&agrave;/�/g;
s/&aacute;/�/g;
s/&acirc;/�/g;
s/&atilde;/�/g;
s/&auml;/�/g;
s/&aring;/�/g;
s/&aring;/�/g;
s/&aelig;/�/g;
s/&ccedil;/�/g;
s/&egrave;/�/g;
s/&eacute;/�/g;
s/&ecirc;/�/g;
s/&euml;/�/g;
s/&igrave;/�/g;
s/&iacute;/�/g;
s/&icirc;/�/g;
s/&iuml;/�/g;
s/&eth;/�/g;
s/&ntilde;/�/g;
s/&ograve;/�/g;
s/&oacute;/�/g;
s/&ocirc;/�/g;
s/&otilde;/�/g;
s/&ouml;/�/g;
s/&divide;/�/g;
s/&oslash;/�/g;
s/&ugrave;/�/g;
s/&uacute;/�/g;
s/&ucirc;/�/g;
s/&uuml;/�/g;
s/&yacute;/�/g;
s/&thorn;/�/g;
s/&yuml;/�/g;
s/&iexcl;/�/g;
s/&iquest;/�/g;
print;
}