perl -MO=Deparse,-x9 -e 'if($a<$b){$a;}'
$a < $b and do {
    $a
};