my $valid_chars = 'CETLMNPA';
if ($CD =~ m/^[$valid_chars](?:,[$valid_chars])*$/) {
   print "Valid!"
}
else {
   die "Invalid!"
}