% perl -wle '1 unless 2 or (3 and 4) if (5 and 6)'
syntax error at -e line 1, near ") if"
Execution of -e aborted due to compilation errors.

##</code><code>##

bar() if $foo;

##</code><code>##

if ( $foo ) {
  bar();
}

##</code><code>##

bar() or baz() if $foo;

##</code><code>##

if ( $foo ) {
  unless ( bar() ) {
    baz();
  }
}