#!/usr/bin/perl
while (<>) {
    s@Ch|CH@Cx@g;
    s@ch@cx@g;
    s@Gh|GH@Gx@g;
    s@gh@gx@g;
    s@Hh|HH@Hx@g;
    s@hh@hx@g;
    s@Jh|JH@Jx@g;
    s@jh@jx@g;
    s@Sh|SH@Sx@g;
    s@sh@sx@g;
    s@AU@AUx@g;
    s@Au@Aux@g;
    s@au@aux@g;
    s@EU@EUx@g;
    s@Eu@Eux@g;
    s@eu@eux@g;
    print;
};