while ( <DATA> ) {
   /^([A-Z]+)$/ or print "Line $.: No match: $1\n";
}
__DATA__
FOO
1234
XYz