Re: JAPH

["George T. Talbot" <george@phat.com>]

Smartass.  ;^)


-----Original Message-----
From: mjd-perl-pm@plover.com <mjd-perl-pm@plover.com>
To: phl@lists.pm.org <phl@lists.pm.org>
Date: Sunday, April 08, 2001 9:20 PM
Subject: JAPH


>
># Copyright 2001 Mark Jason Dominus
>require 5.00553;
>use re 'eval';
>$|=1;
>$z = qr{(?{local$d=1})(?:`(?{$d++})|.(?{$d--}))+?(?(?{$d})(?!))};
>$_="``As`SC``Ad``S``CS`CCI``Ae``C`SI`Ed``A?``B``BIi`pI``E?Z``CZZZZZ`KI```BX
`KIZZQZZZQZZZZZQZZZZQZ``CZZ```BX`KX`KXQ``Ee``EeZZZZZQZ```BX`KIZZQ```BX`KIZZQ
ZZZZQ```BXZ`KIZZQ``Ee```BX`KIZZQ``EdZZZQZ``CZZ```BX`KX`KXQ``CZ```BX`KIZZ`KXZ
Q``Ee```BX`KIZZQ``EdZZZQ``CZZZZ`KXQZ``CZZ```BX`KX`KXQ``C```BXZ`KIZZ`KXQ``Ee`
`EeZZZZZQ``C``EeZZZ`KXQ``Ee``EdZZZQ``Ee```BX`KIZZQ``EdZZZQ``Ed``Ee```BX`KX`K
I";
>s/Q/`KI``E?/g;s/X/IZZZ/g;s/Z/``Es/g;
>do {
>  $N=0;
>
s{`I($z)(?{$q=0})|``K($z)($z)(?{$q=1})|```S($z)($z)($z)(?{$q=2})|```C($z)($z
)($z)(?{$q=3})|```B($z)($z)($z)(?{$q=4})|``A($z)($z)(?{$q=5})|`i($z)(?{$R++,
$q=6})|`p($z)(?{print(chr 120-$R), $R=0,
$q=7})|`E($z)(?{$q=8})|`V($z)(?{$q=9})}{$N=1;$q<5?($1,$2,"``$4$6`$5$6","`$7`
$8$9","``$10$12$11")[$q]:$q==5?($bind{$13}=$14,""):($15,"",$bind{$17},"")[$q
-6]}ex;
>  } while $N;
>
>__END__
>**Majordomo list services provided by PANIX <URL:http://www.panix.com>**
>**To Unsubscribe, send "unsubscribe phl" to majordomo@lists.pm.org**
>

**Majordomo list services provided by PANIX <URL:http://www.panix.com>**
**To Unsubscribe, send "unsubscribe phl" to majordomo@lists.pm.org**