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


in reply to Japhy New Year

It's not exactly a "spoiler" in the usual sense, but for anyone interested, here is the program I used to generate the obfuscation.

@ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"