#!/usr/bin/perl
while (<>) {
    s@&\#264;@C\`@g;
    s@&\#265;@c\`@g;
    s@&\#284;@G\`@g;
    s@&\#285;@g\`@g;
    s@&\#292;@H\`@g;
    s@&\#293;@h\`@g;
    s@&\#308;@J\`@g;
    s@&\#309;@j\`@g;
    s@&\#348;@S\`@g;
    s@&\#349;@s\`@g;
    s@&\#364;@U\`@g;
    s@&\#365;@u\`@g;
    print;
};