if ($x and length($x)) {} # Do something