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