while (<DATA>) {
	if (/^[CETLMNPA](?:,[CETLMNPA])*$/) {
		print "Validated: $_";
	} else {
		print "Incorrect: $_";
	}
}

__DATA__
C,M,N
C,MN
C,,M,N
P
T
Z
E,M,N,P,A,A