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