Howdy Monks!

I discovered Perl exactly 3 days ago in the goal of writing a simple pre-compiler, because Flex compiler is really stupid (but that's another topic). I was instantly enthralled by this wonderful language, so much that I forgot my initial project and spent a sleepless night working on a JAPH. A common case, I suppose.

Here's the result of this:

#!/usr/bin/env perl -w -0466
use strict;use Digest::SHA open(F,$0),q\sha\.(($/=<F>)!~s?!.{50}!?!!??
0:512);print+substr($/=sha512($/),$_,1)for(map{$!=95^ord;$%++%2?$!:map
{64}1..$!}q!WU\x[c]T^|M~_j^Y]]_z_PTi]o_{^`\b_|^JWU^]_u^{_{\|[@!=~?.?g)
[download]

It won't work as a one-liner: to run it, you have to store it into a file. Be careful when pasting however: adding a newline after the final parenthesis will break it (that's an obvious clue).

Have fun!

Arrgh! Woe, despair! My nice and pretty rows had been unspeakably split by the forum's felonious formatting! Now rewritting it to fit in 70 columns. EDIT: Done.

PS: Please, be so kind as to let me know what you think about it.