#!/usr/bin/perl
while (<>) {
    s@Ch@C\`@g;
    s@ch@c\`@g;
    s@Gh@G\`@g;
    s@gh@g\`@g;
    s@Hh@H\`@g;
    s@hh@h\`@g;
    s@Jh@J\`@g;
    s@jh@j\`@g;
    s@Sh@S\`@g;
    s@sh@s\`@g;
    s@AU@AU\`@g;
    s@Au@Au\`@g;
    s@au@au\`@g;
    s@EU@EU\`@g;
    s@Eu@Eu\`@g;
    s@eu@eu\`@g;
    print;
};