#!/usr/bin/perl
while (<>) {
    s@\^C|C\^@Ch@g;
    s@\^c|c\^@ch@g;
    s@\^G|G\^@Gh@g;
    s@\^g|g\^@gh@g;
    s@\^H|H\^@Hh@g;
    s@\^h|h\^@hh@g;
    s@\^J|J\^@Jh@g;
    s@\^j|j\^@jh@g;
    s@\^S|S\^@Sh@g;
    s@\^s|s\^@sh@g;
    s@\^U|U\^@U@g;
    s@\^u|u\^@u@g;
    print;
};