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

##</code><code>##

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