while ( COND ) BLOCK
if ( COND ) BLOCK

##</code><code>##

EXPR while COND;
EXPR if COND;

##</code><code>##

if ( !eval { f() } ) { ... }

##</code><code>##

my $x = eval { f() }
   or ...;

##</code><code>##

EXPR;