#!/usr/bin/perl
while (<>) {
    s@&\#264;@Ch@g;
    s@&\#265;@ch@g;
    s@&\#284;@Gh@g;
    s@&\#285;@gh@g;
    s@&\#292;@Hh@g;
    s@&\#293;@hh@g;
    s@&\#308;@Jh@g;
    s@&\#309;@jh@g;
    s@&\#348;@Sh@g;
    s@&\#349;@sh@g;
    s@&\#364;@U@g;
    s@&\#365;@u@g;
    print;
};