if $CD =~ /[CETLMNPA,]+/ {
 print "it matched\n";
 }