#!/usr/bin/perl
while (<>) {
    s@C\`|C\'@C\^@g;
    s@c\`|c\'@c\^@g;
    s@G\`|G\'@G\^@g;
    s@g\`|g\'@g\^@g;
    s@H\`|H\'@H\^@g;
    s@h\`|h\'@h\^@g;
    s@J\`|J\'@J\^@g;
    s@j\`|j\'@j\^@g;
    s@S\`|S\'@S\^@g;
    s@s\`|s\'@s\^@g;
    s@U\`|U\'@U\^@g;
    s@u\`|u\'@u\^@g;
    print;
};