#!/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'";
}