Select Code to Download

my %replace = ( qw/
    COM  SEC
...
    CO   MOC
    MO   HIS
/ );

#! /usr/bin/perl -w

...
        CO -> MOC
        AE -> MOB
        MO -> HIS