Select Code to Download

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

Line 2: No match: FOO
Line 3: No match: F