#!/usr/bin/perl
while (<>) {
    s@Cx@C\`@g;
    s@cx@c\`@g;
    s@Gx@G\`@g;
    s@gx@g\`@g;
    s@Hx@H\`@g;
    s@hx@h\`@g;
    s@Jx@J\`@g;
    s@jx@j\`@g;
    s@Sx@S\`@g;
    s@sx@s\`@g;
    s@Ux@U\`@g;
    s@ux@u\`@g;
    print;
};