$ perl -MO=Deparse,-p 1.pl
use strict;
my($test);
($test = (undef));
print("test = $test\n");
1.pl syntax OK


##</code><code>##

#! /usr/bin/perl
use warnings;
use strict;

my $test;
my $undef;
my $true = 1;
my $zero = 0;

$test = $true || ($undef && $undef != $zero) ? $undef : $zero;

print "test = $test\n";


##</code><code>##

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


##</code><code>##

$test = (
    (
        $true || (
            $undef && (
                $undef != $zero
            )
        )
    ) ? $undef : $zero
)


##</code><code>##

$test = $true || ($undef && $undef != $zero ? $undef : $zero);


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,