#!/usr/bin/perl END{s{}{"@{[map{$%=$_;$_=&{$_{$_}};$%%2&&s%.%\u$&%;$_}($|..${$/=\ ($^A+$|+$?)})]},"}e;print}($,,$,,+$*,$,,$,)=($|..$=/(+++$^A+$^A)* +++$^A*++$^A);@_{++$|..2**(++$-+$-)}=(sub{(join$',map{+chr($|+$,+ ord($_))}reverse((split$`,&{$_{$=/($,*$,+$,)}})[$...$|]))."${\'s' }".substr(&{$_{2}},$^A,$|)},sub{"anoth".substr(&{$_{$^A}},+$-,$-+ $|)},sub{$a="\104\101\124\101";!seek$a,$=/($*+$,)+$|,$;or~~<$a>}, sub{local$";"@{[(split//,(chr($^A-$|+ord(substr(&{$_{$^A-$|}},+$? ..++$?)))).&{$_{$,/($^A-$|)}}.chr(2*$=-$^A*$,-$|))[$,+$|,$|,$--$| ,+-+$|,-$|x$?,+$=/(0+$,*+$*+-+-$*),$,+-+-~~$*+-+-$|]]}"});__END__
(needs to be saved to a file)
Update: You must include the #! line in the file.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Four part JAPH
by ghenry (Vicar) on Apr 18, 2005 at 13:09 UTC | |
by cog (Parson) on Apr 18, 2005 at 15:23 UTC | |
by ghenry (Vicar) on Apr 18, 2005 at 15:37 UTC | |
by QM (Parson) on Apr 18, 2005 at 17:55 UTC | |
by ambs (Pilgrim) on Apr 18, 2005 at 16:05 UTC | |
by olus (Curate) on Feb 06, 2006 at 02:13 UTC | |
by cog (Parson) on Apr 18, 2005 at 13:18 UTC | |
by ghenry (Vicar) on Apr 18, 2005 at 13:26 UTC | |
by cog (Parson) on Apr 18, 2005 at 13:39 UTC | |
by ambs (Pilgrim) on Apr 18, 2005 at 14:27 UTC | |
by ghenry (Vicar) on Apr 18, 2005 at 13:46 UTC | |
| |
Re: Four part JAPH
by jdalbec (Deacon) on Apr 21, 2005 at 04:06 UTC |
Back to
Obfuscated Code