Help for this page

Select Code to Download

Select or download this

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

Select or download this

__DATA__
*
...
*ABC
ABC_TO
ABC_TO,DEF,GHI_JKL,GHI_JK1_TO