#!/usr/bin/perl
while( <> ) {
if( /"[^">]*&([^;]+);/ && $1 !~ /^link/ ) {
warn "Entity $1 in attribute";
}
s{\&(apos|nbsp|iexcl|cent|pound|curren|yen|brvbar|sect|uml|copy|ordf|laquo|not|shy|reg|macr|deg|plusmn|sup2|sup3|acute|micro|para|middot|cedil|sup1|ordm|raquo|frac14|frac12|frac34|iquest|Agrave|Aacute|Acirc|Atilde|Auml|Aring|AElig|Ccedil|Egrave|Eacute|Ecirc|Euml|Igrave|Iacute|Icirc|Iuml|ETH|Ntilde|Ograve|Oacute|Ocirc|Otilde|Ouml|times|Oslash|Ugrave|Uacute|Ucirc|Uuml|Yacute|THORN|szlig|agrave|aacute|acirc|atilde|auml|aring|aelig|ccedil|egrave|eacute|ecirc|euml|igrave|iacute|icirc|iuml|eth|ntilde|ograve|oacute|ocirc|otilde|ouml|divide|oslash|ugrave|uacute|ucirc|uuml|yacute|thorn|yuml|ampersand|lsquot|rsquot|ldquot|rdquot|minus|endash|emdash|ellips|lellips|blankline|percent|thinspace|frac116|plus);}{}g;
s{\240}{}g;
s{\241}{}g;
s{\242}{}g;
s{\243}{}g;
s{\244}{}g;
s{\245}{}g;
s{\246}{}g;
s{\247}{}g;
s{\250}{}g;
s{\251}{}g;
s{\252}{}g;
s{\253}{}g;
s{\254}{}g;
s{\255}{}g;
s{\256}{}g;
s{\257}{}g;
s{\260}{}g;
s{\261}{}g;
s{\262}{}g;
s{\263}{}g;
s{\264}{}g;
s{\265}{}g;
s{\266}{}g;
s{\267}{}g;
s{\270}{}g;
s{\271}{}g;
s{\272}{}g;
s{\273}{}g;
s{\274}{}g;
s{\275}{}g;
s{\276}{}g;
s{\277}{}g;
s{\300}{}g;
s{\301}{}g;
s{\302}{}g;
s{\303}{}g;
s{\304}{}g;
s{\305}{}g;
s{\306}{}g;
s{\307}{}g;
s{\310}{}g;
s{\311}{}g;
s{\312}{}g;
s{\313}{}g;
s{\314}{}g;
s{\315}{}g;
s{\316}{}g;
s{\317}{}g;
s{\320}{}g;
s{\321}{}g;
s{\322}{}g;
s{\323}{}g;
s{\324}{}g;
s{\325}{}g;
s{\326}{}g;
s{\327}{}g;
s{\330}{}g;
s{\331}{}g;
s{\332}{}g;
s{\333}{}g;
s{\334}{}g;
s{\335}{}g;
s{\336}{}g;
s{\337}{}g;
s{\340}{}g;
s{\341}{}g;
s{\342}{}g;
s{\343}{}g;
s{\344}{}g;
s{\345}{}g;
s{\346}{}g;
s{\347}{}g;
s{\350}{}g;
s{\351}{}g;
s{\352}{}g;
s{\353}{}g;
s{\354}{}g;
s{\355}{}g;
s{\356}{}g;
s{\357}{}g;
s{\360}{}g;
s{\361}{}g;
s{\362}{}g;
s{\363}{}g;
s{\364}{}g;
s{\365}{}g;
s{\366}{}g;
s{\367}{}g;
s{\370}{}g;
s{\371}{}g;
s{\372}{}g;
s{\373}{}g;
s{\374}{}g;
s{\375}{}g;
s{\376}{}g;
s{\377}{}g;
print;
}