#!/usr/bin/perl
while (<>) {
    s@&\#264;@\304\210@g;
    s@&\#265;@\304\211@g;
    s@&\#284;@\304\234@g;
    s@&\#285;@\304\235@g;
    s@&\#292;@\304\244@g;
    s@&\#293;@\304\245@g;
    s@&\#308;@\304\264@g;
    s@&\#309;@\304\265@g;
    s@&\#348;@\305\234@g;
    s@&\#349;@\305\235@g;
    s@&\#364;@\305\254@g;
    s@&\#365;@\305\255@g;
    print;
};