in reply to A little fun(?) with POD..

...might not be as fun to read.

Well, isn't that why they call it Obfuscation. :-)

Replies are listed 'Best First'.
Re^2: A little fun(?) with POD..
by Aristotle (Chancellor) on Jun 16, 2003 at 14:37 UTC
    Try this on for (smaller) size. :)
    $a||open(F, $0); print/^=/?chr(ord('A')+($a++==5?0:($b=tr/ //c)==5?-33:$b)):()while<F>;

    Makeshifts last the longest.