in reply to Goedel's Proof of God in Perl

Perl is different to logical systems. It's aware of its creator: 
perl -v | perl -lane 'print "@F[-2, -1]" if /Copyright/'

[download]
($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,

[download]

Replies are listed 'Best First'.
Re^2: Goedel's Proof of God in Perl
by Jambo Hamon (Novice) on Jul 10, 2017 at 00:55 UTC 
    $ perl -v | perl -lane 'print "@F[-2, -1]" if /Copyright/'
Larry Wall
you have mail in /var/mail/james
$ mail
Mail version 8.1.2 01/15/2001.  Type ? for help.
"/var/mail/james": 5469 messages 1266 new 5469 unread

    [download]

    If that's true, this should help.

    a first attempt; didn't make it all the way through 

    $ perl goedel.pl                                                  
Use of uninitialized value in say at goedel.pl line 7.

1


1
$

    [download]
    #!/usr/bin/perl

use warnings;
use strict;
use v5.20;

say undef;
say !undef;
say !!undef;

say map { grep { // } @_ } (!undef)[!!undef];
{
    say 1;
}
exit $?;
# what is the exit status?

    [download]
[reply]
[d/l]
[select]

In Section Meditations