#!/usr/bin/perl
while (<>) {
    s@Cx|CX@\306@g;
    s@cx@\346@g;
    s@Gx|GX@\330@g;
    s@gx@\370@g;
    s@Hx|HX@\246@g;
    s@hx@\266@g;
    s@Jx|JX@\254@g;
    s@jx@\274@g;
    s@Sx|SX@\336@g;
    s@sx@\376@g;
    s@Ux|UX@\335@g;
    s@ux@\375@g;
    print;
};