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