Hello,

It is possible to write relatively obfuscated Perl. But perl will will be happy do de-obfuscate it for you if you ask it to:

$ perl -e 'my $a=(1 == 1) && (0);print "$a\n";'
0
$ perl -MO=Deparse -e 'my $a=(1 == 1) && (0);print "$a\n";'
my $a = 0;
print "$a\n";
-e syntax OK
$ perl -e 'my $a=(1 == 1) and (0);print "$a\n";'
1
$ perl -MO=Deparse -e 'my $a=(1 == 1) and (0);print "$a\n";'
'???' if my $a = 1;
print "$a\n";
-e syntax OK
[download]

regards,