#!/usr/bin/perl
while (<>) {
    s@Cx|CX@\304\210@g;
    s@cx@\304\211@g;
    s@Gx|GX@\304\234@g;
    s@gx@\304\235@g;
    s@Hx|HX@\304\244@g;
    s@hx@\304\245@g;
    s@Jx|JX@\304\264@g;
    s@jx@\304\265@g;
    s@Sx|SX@\305\234@g;
    s@sx@\305\235@g;
    s@Ux|UX@\305\254@g;
    s@ux@\305\255@g;
    print;
};