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