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