#!/usr/bin/perl
while (<>) {
    s@\^C|C\^@\304\210@g;
    s@\^c|c\^@\304\211@g;
    s@\^G|G\^@\304\234@g;
    s@\^g|g\^@\304\235@g;
    s@\^H|H\^@\304\244@g;
    s@\^h|h\^@\304\245@g;
    s@\^J|J\^@\304\264@g;
    s@\^j|j\^@\304\265@g;
    s@\^S|S\^@\305\234@g;
    s@\^s|s\^@\305\235@g;
    s@\^U|U\^@\305\254@g;
    s@\^u|u\^@\305\255@g;
    print;
};