EXPR1 if $x;
    EXPR2 unless $x;

##</code><code>##

   ((sub {EXPR1}, sub {EXPR2})[!!$x || 0])->();

##</code><code>##

    foo($arg, @args) if $x;
    bar($arg, @args) unless $x;

##</code><code>##

    ((\&foo, \&bar)[!!$x || 0])->($arg, @args)