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