http://www.perlmonks.org?node_id=403158


in reply to Recognizing all-caps line

perl -ne 'print "A number or a non-capital ASCII letter has been found + at position " . pos() ." . There may be more.\n" if /[a-z0-9]/g'
HTH
--
Olivier