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