in reply to Regex to remove data

Keeps the lines that are empty or that contain only whitespace characters:

perl -ne 'print if not /[A-Z]/ && /^[A-Z\s]+$/' file.txt

In Section Seekers of Perl Wisdom