[FWP] [JAPH]: my first one

[Steve Lane <sml@zfx.com>]

i thought i'd share my first JAPH with the list.
be gentle please...

perl -le '($_=q(*= "man, These are the first perl faq`s!"
;split/8, `9/ ;*=`*809 *869*8791` ;(*)=/*829 *839 *849.+?"(.+?)"/s
;s/(\w+ \w+)/"uc*859(\$1)"/gee ;print))=~s/\*/\$_/g;y(98)(][);eval'

suggestions on how to improve (or destroy) are welcome.
--
Steve Lane <sml@zfx.com>

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe