Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

just another perl faq'er?

by danger (Priest)
on Jan 09, 2001 at 05:05 UTC ( [id://50604] : obfuscated . print w/replies, xml ) Need Help??

A few years back I posted my first obfuscated bit to clpm. OK, so it's really only barely obfuscated ornithological quackery (never really had the knack for obfuscation) -- at least I'm not asking you to read my poetry! Anyway, it went something like this:

#!/usr/bin/perl -wl $_="faufakfacfadfas"; # some arbitrary string. $not=q=q+q-q-+=; # q equals q plus q minus q, right? s$d|u|c|k|s\$$\$not$geese; # seems fowl. s a.\ay?.+aprint uc $&ae; # <ducking>...(sic)

Just another Perl FAQ'er
:-)