my %replace = ( qw/
    COM  SEC
    MOB  HIS
    MOC  COM
    ICM1 INO
    ICM2 INO
    EU   HIS
    CY   GRE
    AE   MOB
    IN   ICC
    GR   GRE
    MH   MOC
    CO   MOC
    MO   HIS
/ );