disclaimer: This japh should be contained within a file of it's own. Attempting to execute the script outside a file may prove to be a futile effort ;/.

This is my first time playing with Japh code. I'll appreciate any constructive input and suggestions on how to improve the JAPH. I'd also like to thank belg4mit for his help prior to my posting this JAPH.

Unfortunately, I haven't produced any spoilers yet. But hope to do so on popular demand. ;-) 
#%  xxxxxx   xx-+  xx    xxx xx  xx       xx  xx   xxx   xxxxx+ xx  xx
+ xxxx xxxxx  ......+
#x xxxxvxxx xx  xx xv   xxxx x+ %+  ===== xx  xx  xx xx  x+  =x xx xx 
+ xx   xx xx ...+
#x xx xx xx xx  xx xx  xx xx xxx+         xxxxxx xx   +x xx     xx+x- 
+ xxxx xxxx ........+
#% xx xx xx xx  xx xx xx  x+ xx xx  =+=== xx  xx xxxx-xx xx  =x +x xx 
+ xx   xx xx ...+
#% xx xx xx  -+x+  xxx+   xx xx  xx       xx  xx x+   xx xxx+xx xx  xx
+ xxxx xx  xx ....+
$/='$';open(I,$0);$_=<I>;($/)=/(.)
/;chop;s/
//;/(v)/;$-=$-[0];s;\Q$/\E;
;g;($/,$^)=/^(.)(.)/;
for(split/
/){s,[ $/],,g;/(.)$/;$l=
$-[0];/(.)/||next;$_
=chr$-+$l;$".=($1=~/$^/)
?" \u$_":$_;}print$";

[download]


UPDATE: Here's another rendition of the same thing: 
open(I,$0);<I>;$~=$/;$/='~';$_=<I>;($/)=/(.)$~/;s/[$~~]//g;/(v)/;$-=$-
+[0];s;\Q$/\E;$~;g;($/,$^)=/^(.)(.)/;
#%  xxxxxx   xx-+  xx    xxx xx  xx       xx  xx   xxx   xxxxx+ xx  xx
+ xxxx xxxxx  ......+
#x xxxxvxxx xx  xx xv   xxxx x+ %+  ===== xx  xx  xx xx  x+  =x xx xx 
+ xx   xx xx ...+
#x xx xx xx xx  xx xx  xx xx xxx+         xxxxxx xx   +x xx     xx+x- 
+ xxxx xxxx ........+
#% xx xx xx xx  xx xx xx  x+ xx xx  =+=== xx  xx xxxx-xx xx  =x +x xx 
+ xx   xx xx ...+
#% xx xx xx  -+x+  xxx+   xx xx  xx       xx  xx x+   xx xxx+xx xx  xx
+ xxxx xx  xx ....+~
for(split/$~/){s,[ $/],,g;/(.)$/;$l=$-[0];/(.)/||next;$_=chr$-+$l;$".=
+($1=~/$^/)?" \u$_":$_;}print$";

[download]
This one appears to be prettier, doesn't it? :)

RE jynx: Hmm, this is rather odd. I have tried running the first japh on WinME as well as Solaris8 and things worked fine. Probably, you lost a few characters while copying or... use a different perl version from the one I have?

Fortunately, the second one works ;-).

_____________________ 
$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
+-.*)$/;
$_=<a HREF="/index.pl?node=%22ps%20-e%20-o%20pid%20"> "," $2 </a>;`@$_
+`?{print"+ $1"}:{print"- $1"}&&`rm $1`;
print$\;}

[download]

In reply to 'monk = hacker' JAPH. by vladb

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.