Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

comment on

( #3333=superdoc: print w/replies, xml ) Need Help??
After the parable, the obfuscation. You might want to read this to follow the story :).
#!/usr/local/bin/perl -w
0Q20oD      OO20Q*30Q*30Q*00QO00Q30D*20QO10QO00D*20oDOO20D*20XQO20oDOO20Q*
00QO4        0D*20QO10Q20D*20Q*30Q10oDO      O20QO00Q*00QO0     0Q30D*20QO
*10QO        10QO10QO*10Q40QO20Q*00oDO        O40Q*20QO*00     DOO10DOO10D
OO10D        O40DOO10D*40oDO*20QO00D*4        0DO*10o*40D     *20DO30QO*40
o*40DO      30QO00o*40DO30QO00o*40D*20        XQ*10o*30Q     20QO10QO40DO*
00DO10Q*00oO10DOO30o*40DO10Q*00oO00o20D      OO40o*40DO     10Q*00DO*30DO*
30DO*10QOO30D*20QO2      0oDOO00DO*00D*40oDO*20DOO30o2     0DOO30D*40QOO00
DO10Q*00DOO10D*40Q        O10D*40DO*10o*40DO30QO*40o*     40DO00DO00XQD00Q
20QO10QO40DO*00DO1        0Q*00oO10o40DOO30o*40DO10Q     *00oO20DOO00DOO40
o*40DO10Q*00DOO00D        OO00DO*10QOO30D*20QO20oDO     O00DO*00D*40oDO*20
DOO30o20DOO30D*40QO      O00DO10Q*0      0DOO10D*4     0QO10D*40DO*10o*40D
O30QO*40o*40DO00DO00XQD00D*20QO20Q        O40Q*00     QO00QO*10D*20D*40oDO
*20QO00D*40o*40D*20DO10QO*00oO10o*        20o*40     QO*40Q40Q*00Q*30Q10DO
*00D*20DO10QO*00DO*10QOO30D*20QO20        oDOO0     0DO*00D*20DO*00QO40oDO
O20QO00Q00DO*00DOO40DOO30DOO30DO*10      oO00o     30XoO30DO40QO10DO40o*30
D*20DO40D*20DO40DO*10DO*10D*20Q20QO10QO40D*20     DO*00DOO30DOO10DOO10o00o
*20DO*10o*40D*20QO20oDOO00DO*00D*40D*20D*40Q     OO00D*20DO10QO*00DOO10D*4
0DOO20D*40DO      O10D*40D*20D*40QOO00DO*00     o00DO*20XDO*00o*20DOO00DO1
0QO*00DO*10        DO*10DOO10D*40D*20oDO*2     0oDO*20D*40DO*10o*40DO10QO*
00DOO00DOO0        0o*40D*20QO20DO*00DO*0     0QO40oDOO20QO00Q00DO*00DOO40
DOO30DOO30D        O*10oO00o30oO30DO40QO     10DO40o*30DO40D*20DO40DO*10D*
20DO*10DO00X      Q20QO10QO40D*20DO*00D     OO30DOO10DOO10o00o*20DO*10o*40
D*20DO30QO00o*40D*20QD00DO30QO00o*40QO     20DO*00D*40oOO00oDOO20Q*30Q*30Q
*00QO00Q30D*20QO10QO00      D*20QO*10     Q40Q10D*20Q*30Q10Q20QO*10o*30D*4
0DO00DO00XDOO10D*40D*        20D*40Q     OO00DOO40o*10D*20DOO10D*40oOO30DO
O20oD40D*40DOO10D*40D        *20D*4     0QOO00DOO40o20D*20DOO10D*40oOO00oD
OO20Q*30Q*30Q*00QO00Q        30D*2     0QO10QO00D*20QO*10Q40Q10D*20QO40Q*0
0Q30Q40QO*10o*30D*40DO      *10Xo     *40DO30QO00o*40QO20DO*00D*40D*20D*20
oOO30QO00QO20QO*20QO*10o*30D*20o     DO*20DO10DOO20D*40D*20DOO10D*40D*20D*
40QOO00o20o20D*20DOO10D*40D*20D     *20oD40QO*20QO*10QO20QO*20QO*10o*30D*2
0oDO*20DO10oDO*20oDO*20D*40DO*     10Xo*40DO30QO00o*40DO30QO00o*40QO*00QO*
20oD                                                                  OO30
D*20  The falling droplets: a tale of daring, toothpics and some I/O  QO*4
0QOO                                                                  30DO
D00";s{\s|T.*/O}()g;s(X){\n}g;while (s/(?=[QDOo*])(Q*)(o*)(D*)(O*)(\**)(\d
                 {}g;eval;sub l{return length shift}
Sorry about the <pre> tags, but it's only 3 characters and I had no intention of reformatting the blasted thing (yet again) :). For those wishing to download this, the code is on my scratchpad, with the correct tags.

Robartes- who's wondering whether "Falling droplet: The Poem" is next :)

Update: added link to scratchpad with code. Not that that helps much :(

In reply to Dropfu by robartes

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, 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, 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.
  • Log In?

    What's my password?
    Create A New User
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others chanting in the Monastery: (6)
    As of 2021-01-20 17:02 GMT
    Find Nodes?
      Voting Booth?