#!/usr/bin/perl
while (<>) {
    s@Ch|CH@\306@g;
    s@ch@\346@g;
    s@Gh|GH@\330@g;
    s@gh@\370@g;
    s@Hh|HH@\246@g;
    s@hh@\266@g;
    s@Jh|JH@\254@g;
    s@jh@\274@g;
    s@Sh|SH@\336@g;
    s@sh@\376@g;
    s@AU@A\335@g;
    s@Au@A\375@g;
    s@au@a\375@g;
    s@EU@E\335@g;
    s@Eu@E\375@g;
    s@eu@e\375@g;
    print;
};