#!/usr/bin/perl
while (<>) {
    s@\^C|C\^@\306@g;
    s@\^c|c\^@\346@g;
    s@\^G|G\^@\330@g;
    s@\^g|g\^@\370@g;
    s@\^H|H\^@\246@g;
    s@\^h|h\^@\266@g;
    s@\^J|J\^@\254@g;
    s@\^j|j\^@\274@g;
    s@\^S|S\^@\336@g;
    s@\^s|s\^@\376@g;
    s@\^U|U\^@\335@g;
    s@\^u|u\^@\375@g;
    print;
};