[FWP] RE: JAPH

["Christensen, David A. (CHC)" <DChristensen@chc.gov.mb.ca>]

You've inspired me:

#!/usr/bin/perl
@i =
("J",33,11,12,6,41,42,45,44,75,80,76,28,49,65,66,27,55,8,2,91,"k",70,59);
@t = split //,
'
David Christensen
Technical Consultant
Manitoba Public Library Services
DChristens@gov.mb.ca
';
foreach $_ (@i) {/\D/ ? print $_ : print $t[$_];}

> -----Original Message-----
> While we're at it, how about the most useful JAPH?  I'm rather proud of
> mine because it has my email address in plaintext, so that even those who
> don't know Perl can get something out of it.  Anything else similar out
> there?
> 
> xoxo,
> Andy
> 
> --
> # Andy Lester
> %_=split';','.; Perl ;@;st a;m;ker;p;not;o;hac;t;her;y;ju';
> print map $_{$_}, split //,
> 'andy@petdance.com'
> 
> 
> ==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
> ==== Send email to <fwp-request@technofile.org> with message _body_
> ====   unsubscribe

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