#! /usr/local/bin/perl -w
use strict;

$a = 1;
$b = 2;

(1) ? $a = 3 : $b = 4;
print "1) a = $a, b = $b\n";

(1) ? ($a = 3) : ($b = 4);
print "2) a = $a, b = $b\n";