<story><title>Black Perl</title><url>http://en.wikipedia.org/wiki/Black_Perl</url></story><parent_chain></parent_chain><comment><author>aditya</author><text>Here&apos;s my favorite piece of perl:&lt;p&gt;#!/usr/bin/perl -s&lt;p&gt;&lt;pre&gt;&lt;code&gt;                                                      @x=qw/e n d/;if(         
                               $kg){$e=13;$_=&quot;setrand(@{[int((rand)*90)]})     
                           ;K=vector(2,g,nextprime(random(10^$s)));e=$e;n=K[1]*
                               K[2];d=e^-1%((K[1]-1)*(K[2]-1));&quot;;s/\s//sg;for( 
                                `echo &quot;$_ e\nn\nd\n&quot;|gp -q`){print$x[$j++]     
                              ,&quot;=&quot;,`echo &quot;10i16o$_ p&quot;|dc`}exit}$t=             
                             unpack&apos;H*&apos;,join&apos;&apos;,&amp;#60;&amp;#62;;$l=length$n;$y               
                          =$e?$l-2:$l;$i=&quot;16dio&quot;;while  (){$M=                 
                      ($e&amp;#38;&amp;#38;1+int(rand 8)).(substr     $t,$p                    
                   ,$y or last);$i.=&quot;\U$M $k        $n\E|                      
                pc&quot;;$p+=$y}for(reverse                                         
           `echo &quot;$i&quot;|dc`){chop                                                
   ;$d&amp;#38;&amp;#38;s/^(.)//||($_=                                                         
     sprintf&quot;%0${l}s&quot;                                                          
      ,$_); $f                                                                 
      .=$_}#                                                                   
      print                                                                    
      pack                                                                     
     &apos;H*&apos;                                                                      
   ,$f

&lt;/code&gt;&lt;/pre&gt;
&lt;a href=&quot;http://ftp.uk.debian.org/munitions/documents/rsafin.html&quot; rel=&quot;nofollow&quot;&gt;http://ftp.uk.debian.org/munitions/documents/rsafin.html&lt;/a&gt;</text></comment>
<story><title>Black Perl</title><url>http://en.wikipedia.org/wiki/Black_Perl</url></story><parent_chain></parent_chain><comment><author>yan</author><text>In Perl, just like English, this poem parses but makes no sense. :P</text></comment>