poem Adam <CODE> @Perl=('Obfuscation'=> q;Art of the unreadable;); print "$Perl[0] done for fun" </CODE>