in reply to Re^6: What does $_ = qq~"$_"~ do?
in thread What does $_ = qq~"$_"~ do?

an even weirder example

In the meantime, there's this message from Dave Mitchell available for studying on the fun-with-perl mailing list:

Dave Mitchell Tue, 19 Sep 2006 17:53:37 -0700 I believe the following is a genuine, 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 -- A walk of a thousand miles begins with a single step... then continues for another 1,999,999 or so.
perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'