if( $var eq ' ' x length($var) ) {...}