in reply to Check for non blank entry

!~ /^\s*$/ or =~ /\S/

In Section Seekers of Perl Wisdom