Self-explanatory program of free will

[Courage]

Below is a program (not -w-clean, of course) that runs and even prints certain result.

exit if  s ee   you any point
why program this can not start
its run of life
and print or do'not print
what it decides to
thus giving us example of free will!'

If perl 5.8.0(pre) is used (5.6.1 is not enough), then it will explain using better English:

exit if  s ee   you any point
why program this can not start
its run of life
and print or do not print
what it decides to
thus giving us example of free will

You will say it has common in spirit with Man's ravings? No.?
Yes, it has. But when I was younger I was refered to as vkonovalov!

Still not finally sure whether this code snippet better fits to poetry section...

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

[vladb]

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$\;}

[Courage]

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.