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