#!/usr/bin/perl
while (<>) {
    s@C\`|C\'@Ch@g;
    s@c\`|c\'@ch@g;
    s@G\`|G\'@Gh@g;
    s@g\`|g\'@gh@g;
    s@H\`|H\'@Hh@g;
    s@h\`|h\'@hh@g;
    s@J\`|J\'@Jh@g;
    s@j\`|j\'@jh@g;
    s@S\`|S\'@Sh@g;
    s@s\`|s\'@sh@g;
    s@U\`|U\'@U@g;
    s@u\`|u\'@u@g;
    print;
};