while (<DATA>) { print if $_ !~ /[[:lower:]\d]/; }

__DATA__
THIS LINE IS ALL CAPS
THIS LINE IS CAPS WITH 012
THIS LINE has lowercase
THIS LINE has lowercase and 012