#!/usr/bin/perl
while (<>) {
    s@Cx|CX@&\#264;@g;
    s@cx@&\#265;@g;
    s@Gx|GX@&\#284;@g;
    s@gx@&\#285;@g;
    s@Hx|HX@&\#292;@g;
    s@hx@&\#293;@g;
    s@Jx|JX@&\#308;@g;
    s@jx@&\#309;@g;
    s@Sx|SX@&\#348;@g;
    s@sx@&\#349;@g;
    s@Ux|UX@&\#364;@g;
    s@ux@&\#365;@g;
    print;
};