<p>if ( defined $var && length $var ) {<br>
    print 'ok';<br>
}<br>
</p>