$expression ? $var = "foo" : $var = "bar";

##</code><code>##

$ perl -MO=Deparse,-p -e '$expression ? $var = "foo" : $var = "bar";'
(($expression ? ($var = 'foo') : $var) = 'bar');
-e syntax OK

##</code><code>##

$ perl -MO=Deparse,-p -e '$expression ? ($var = "foo") : ($var = "bar");'
($expression ? ($var = 'foo') : ($var = 'bar'));
-e syntax OK

##</code><code>##

#!/usr/bin/env perl -l

use strict;
use warnings;

for my $expression (0, 1) {
    my $var = '';
    $expression ? ($var = 'foo') : ($var = 'bar');
    print "\$expression = '$expression'; \$var = '$var'";
}

##</code><code>##

$expression = '0'; $var = 'bar'
$expression = '1'; $var = 'foo'