>perl -MO=Deparse,-x9 -e"if(my $x=$a<$b){$a;}"
my $x = $a < $b and do {
    $a
};
-e syntax OK

##</code><code>##

do { ( $a < $b ) and do { $a } };

##</code><code>##

( $a < $b ) and do { $a };

##</code><code>##

...
{
   ...
   if (my $obj = ...) {
      ...
   }
   .
   .  # $obj still exists here "anonymously".
   .
} # $obj cleared here, so destructor only called here.
...