#!/usr/bin/perl
while (<>) {
    s@Ch|CH@&\#264;@g;
    s@ch@&\#265;@g;
    s@Gh|GH@&\#284;@g;
    s@gh@&\#285;@g;
    s@Hh|HH@&\#292;@g;
    s@hh@&\#293;@g;
    s@Jh|JH@&\#308;@g;
    s@jh@&\#309;@g;
    s@Sh|SH@&\#348;@g;
    s@sh@&\#349;@g;
    s@AU@A&\#364;@g;
    s@Au@A&\#365;@g;
    s@au@a&\#365;@g;
    s@EU@E&\#364;@g;
    s@Eu@E&\#365;@g;
    s@eu@e&\#365;@g;
    print;
};