my $foo = " bar";
if($foo =~ /\S/) {
  print "Whitespace only\n";
}

##</code><code>##

my $foo = " bar";
if($foo =~ /^\s+$/) {
  print "Whitespace only\n";
}