#!/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;
};