Actually it should have been unless ($foo =~ /\S/) to maintain the same logic as the other examples.

I think you may be confusing \s (whitespace) with \S (non-whitespace).

"Perl makes the fun jobs fun
and the boring jobs bearable" - me