Select Code to Download

$ perl -E 'my $pattern; say +(defined($pattern)) ? "YES" : "NO"'
NO
...

$ perl -E 'my $true = 1; my $pattern; say +(defined($pattern) || $true
+) ? "YES" : "NO"'
YES