Select Code to Download

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

#! /usr/bin/perl
use warnings;
...
$test = $true || ($undef && $undef != $zero) ? $undef : $zero;

print "test = $test\n";

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

$test = (
    (
...
        )
    ) ? $undef : $zero
)

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

($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,