#!/usr/bin/perl
while (<>) {
    s@Cx|CX@Ch@g;
    s@cx@ch@g;
    s@Gx|GX@Gh@g;
    s@gx@gh@g;
    s@Hx|HX@Hh@g;
    s@hx@hh@g;
    s@Jx|JX@Jh@g;
    s@jx@jh@g;
    s@Sx|SX@Sh@g;
    s@sx@sh@g;
    s@Ux|UX@U@g;
    s@ux@u@g;
    print;
};