C:\>perl -MO=Deparse,-p
for(1..10){
  $_>5 ? $x='foo' : $x='bar';
  print "$_:$x\n";
}
^Z
foreach $_ (1 .. 10) {
    ((($_ > 5) ? ($x = 'foo') : $x) = 'bar');
    print("${_}:$x\n");
}
- syntax OK
[download]