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]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.