Your skill will accomplishwhat the force of many cannot PerlMonks

### Comment on

 Need Help??

This was my other "too long for OPC5" obfuscation (the other was The Best Ever). It is a boustrophedon.

```END{\$00=~s/(.*)(\n)/(++\$*%(@ARGV?1:2)?reverse\$1:\$1).\$2/ge;eval\$00}\$00=
+<<'OPC 5'
"-|=I+X#.";(\$W,\$H,\$w,\$h,\$z,\$n,\$i)=(79,23,2,2,1,25,1);'esrever lave;".
+#X+I=|-"
';while(@ARGV){\${pop@ARGV}=pop}do{while(/([a-z])\s*([-\d.]*)/cgi){\${\$1
+}=\$2if\$1}
;#%)":^//@]n\n\$<:%z\$<*%a\$<^%A\$<_}y\$<=%x\$<!%h\$<|%w\$<[%j\$<(%H\$<;%W\$<'#qq
+=_\$;_\$=e\$
@c=split//,\$00;for(1..\$i){\$w*=\$z;\$h*=\$z;\$A+=\$a;for(0..\$H*\$W-1){(\$U,\$R,
+@0)=(f(\$_
%\$W,int\$_/\$W),\$n);(\$p,\$q)=(\$j?(\$x,\$y):(#(:)y\$,x\$(?j\$(=)q\$,p\$(;)n\$,)W\$/
+_\$tni,W\$%
\$U,\$R));do{(\$U,\$R)=(\$U*\$U-\$R*\$R+\$p,\$U*2*\$R+\$q)}until((\$U*\$U+\$R*\$R>4)||
+--\$0[0]==
0);print\$c[int(\$0[0]*9/\$n)],++\$_%\$W?\$# : #\$?W\$%_\$++,])n\$/9*]0[0\$(tni[c
+\$tnirp;)0
"\n"}};sub f{(\$w/\$W*(\$_[0]-(\$W-1)/2)*cos(\$A)+\$h/\$H*((\$H-1)/2-\$_[1])*si
+n(\$A)+\$x,
(\$_[0]-(\$W-1)/2)*-\$w/\$W*sin(\$A)+\$h/\$H*(#(*H\$/h\$+)A\$(nis*W\$/w\$-*)2/)1-W
+\$(-]0[_\$(
(\$H-1)/2-\$_[1])*cos(\$A)+\$y)};exit if\$e=~/q/;BEGIN{push@ARGV,split' ',\$
+ENV{TPJ}}
}#)><(elihw}tnirp;"ujd:zhoCawHmn =WxAy"{("\)*|@]^[;/:%<'!_="y;/%Y\$<Y%X
+\$<X%/}/s;
OPC 5

0) I shouldn't tell anything: once you've run it, what it does is obvious.
1) One hint: it has two modes, depending on its command-line parameters...
3) Try these: x .404 y -.35703 w 5 h 5 i 108 z .9 A -.3 a .3 n 100 and save the result in a file
4) Then play it with PgUp/PgDn in an advanced enough text editor.
5) It doesn't fit in any of this year's categories. :-(

In reply to Not a palindrom: a boustrophedon by BooK

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.
• 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: & & < < > > [ [ ] ]
• Link using PerlMonks shortcuts! What shortcuts can I use for linking?

Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (6)
As of 2018-10-20 10:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
When I need money for a bigger acquisition, I usually ...

Results (117 votes). Check out past polls.

Notices?