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