perl -MO=Deparse  -e 'sub foo {return ($bar or $baz)}'
sub foo {
    return $bar || $baz;
}