Select Code to Download

while( <IFILE> ) {
    next unless m/^[CKMPSWY]/;
    print OFILE unless /^(?:CP|K[LM]|ME|P[AM]|S[LZ]|WX|YZ)XX1/;
}