in reply to Module Readonly

http://www.google.com/search?q=perl+constant+example

perl -e'$_="nwdd\x7F^n\x7Flm{{llql0}qs\x14";s/./chr(ord$&^30)/ge;print'

In Section Seekers of Perl Wisdom