if( my $x = $_ = f()  and g($_) )   {....}

##</code><code>##

if($_ = \(my $x = f()) and $$_  and g($$_) )