in reply to Check for non blank entry

/\S/

[download]
(capital S) will check for the presence of non-whitespace.
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom