#!/usr/bin/perl
while (<>) {
    s@Ch|CH@C\^@g;
    s@ch@c\^@g;
    s@Gh|GH@G\^@g;
    s@gh@g\^@g;
    s@Hh|HH@H\^@g;
    s@hh@h\^@g;
    s@Jh|JH@J\^@g;
    s@jh@j\^@g;
    s@Sh|SH@S\^@g;
    s@sh@s\^@g;
    s@AU@AU\^@g;
    s@Au@Au\^@g;
    s@au@au\^@g;
    s@EU@EU\^@g;
    s@Eu@Eu\^@g;
    s@eu@eu\^@g;
    print;
};