Select Code to Download

    print "Spaces only\n"         if $var =~ /^ +\z/;
    print "Only whitespace\n"     if $var =~ /^\s+$/;
    print "Whitespace or empty\n" if $var =~ /^\s*$/;