#!/usr/bin/perl
while (<>) {
    s@Cx|CX@C\^@g;
    s@cx@c\^@g;
    s@Gx|GX@G\^@g;
    s@gx@g\^@g;
    s@Hx|HX@H\^@g;
    s@hx@h\^@g;
    s@Jx|JX@J\^@g;
    s@jx@j\^@g;
    s@Sx|SX@S\^@g;
    s@sx@s\^@g;
    s@Ux|UX@U\^@g;
    s@ux@u\^@g;
    print;
};