in reply to Re: Recognizing all-caps line
in thread Recognizing all-caps line

you do, of course, mean ...
&& $line !~ /\D/