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
[download]

:)

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