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