http://www.perlmonks.org?node_id=173480


in reply to Self-explanatory program of free will

Hmm, indeed Perl is very peculiar in its faculties. One can cleverly disguise a perl code for a plain text. Here, I've tried to spoil your obfuscation a bit. It ends up being just a couple statements. And the text that is getting printed is the result of substitution on the '$_' scalar. Since, $_ initially doesn't hold anything, by replacing '' (nothing) with ' you any point why program this can not start its run of lif', this text is saved in the '$_' variable, which you then output with the print; method.
exit if s// you any point why program this can not start its run of lif/ and print "$_" or do'not print what it decides to thus giving us example of free will! +'


_____________________
$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+) +-.*)$/; $_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print" +- $1"}&&`rm $1`; print$\;}

Replies are listed 'Best First'.
Re: Re: Self-explanatory program of free will
by Courage (Parson) on Jun 11, 2002 at 14:28 UTC
    Indeed.

    And perl -MO=Deparse xx.pl for latest perl with second version of that program gives intresting result:

    perl -MO=Deparse xx.pl exit if s// you any point\nwhy program this can not start\nits run o +f lif/ and print $_ or do !print('it'->what('to'->decides('giving'->t +hus('example'->us('free'->of('will')))))); xx.pl syntax OK
    :)

    Courage, the Cowardly Dog.
    PS. Something fishy is going on there, or my name is Vadim Konovalov. And it's not.