Select Code to Download

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

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