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