$foo if defined $str and length $str;

##</code><code>##

$foo if $str;

##</code><code>##

BEGIN {
	*CORE::GLOBAL::length = sub(;$) {
		defined $_[0] ? CORE::length( $_[0] ) : undef;
	};
}

##</code><code>##

$foo if length $str;