Re^5: Scripts work when run individually but not when run as one compiled script

This trick appeared on September 19, 2006 on the fun with perl mailing list - Punctuation Free Quine:

s zzs vvxv
and s ZVZchr 122Zie
and s ZVZchr 122Zie
and s ZVZchr 122Zie
and s SxSlcfirstSe
and s YZZxZYvvxvYi and print
z
and s ZVZchr 122Zie
and s ZVZchr 122Zie
and s ZVZchr 122Zie
and s SxSlcfirstSe
and s YZZxZYvvxvYi and print
[download]

As you might expect from the wonderful perl documentation, this is documented. From perlop:

s/PATTERN/REPLACEMENT/msixpodualgcer
...
Any non-whitespace delimiter may replace the slashes. Add space after the "s" when using a character allowed in identifiers.

</update>

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

Comment on Re^5: Scripts work when run individually but not when run as one compiled script Download Code