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