[Date Prev][Date Next][Thread Prev][Thread Next]
[Search]
[Date Index]
[Thread Index]
RE: [FWP] japh
- To: Fun with perl <fwp@technofile.org>
- Subject: RE: [FWP] japh
- From: Lauren Smith <LaurenS@bsquare.com>
- Date: Mon, 18 Dec 2000 09:35:31 -0800
- Delivered-To: irons-bumppo:net-mpfwp@bumppo.net
Here's one that I was using for a while:
print grep ord $_,map{y/a-zA-Z//d;$x.="+ $_";chr(eval $x)
}'J74u43-s2tA1-84n33o45th1er5-12-P3e13-82r48l21H13-a6-76
c40k25er2wx8-y6z13-81'=~m#([^!\n]{3})#g#tr/-0-9//d;print
Nothing fancy I'm afraid.
Lauren Smith
--
eVT Maintenance
(425) 519-5253
==== Want to unsubscribe from Fun With Perl? Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
==== unsubscribe