while (<DATA>) {
if (/^(?:[A-Z_]+,?)+(?<!,)$/) {print "good";}
else {print "bad";}
print;
}