P:\test>perl -MO=Deparse,-p
$a=$b=$c=1;
$a=$a++ + $a++;
$b=$b++ + $b;
$c=$c   + $c++;
print "$a $b $c\n";
^Z
($a = ($b = ($c = 1)));
($a = (($a++) + ($a++)));
($b = (($b++) + $b));
($c = ($c + ($c++)));
print("$a $b $c\n");
- syntax OK