#!/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;
};