#!/usr/bin/perl
while (<>) {
    s@&\#264;@\306@g;
    s@&\#265;@\346@g;
    s@&\#284;@\330@g;
    s@&\#285;@\370@g;
    s@&\#292;@\246@g;
    s@&\#293;@\266@g;
    s@&\#308;@\254@g;
    s@&\#309;@\274@g;
    s@&\#348;@\336@g;
    s@&\#349;@\376@g;
    s@&\#364;@\335@g;
    s@&\#365;@\375@g;
    print;
};