use strict;
my($test);
my($undef);
(my $true = 1);
(my $zero = 0);
($test = (($true || ($undef && ($undef != $zero))) ? $undef : $zero));
print("test = $test\n");
1.pl syntax OK