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