And dead set against this:

my $x = $y > 5 ? ($y = 0) : ($y = 1);
[download]

As you should be.

my $x = ($y = $y > 5 ? 0 : 1);
[download]

and

$y = $y > 5 ? 0 : 1;
my $x = $y;
[download]

are much more readable.