hi all
hopefully you're not utterly sick of me by now.
well first there was this then this and lo, with depressing inevitability here's my latest effort:
$z='$|=print"\ec";$z=~s#\s##g;$z="\$z=\x27$z\x27".q%;$z=~s#\s|\x4f##g;
+eval$z%;$
x   =   4             0         ;   $         w     =       2       * 
+        $
x ;   $Ow -         -       ; $   y       = 1     6 ;   $   | =   1   
+; @     m
=     (   (             3         1             ,   ( 1   5 )     x ( 
+    $   x
-   1   )   ) x       $ y ,       ( 3 1         ) x   $ x ) ;   *   p 
+=     s u
b     {   "     \   e   [     7   m   @ _     [   0 ] \   e   [ m " } 
+  ; *   l
=   s u             b   { c   h o   p   $ t         }   ; d   o   {   
+$     t =
r e v   e       r     s e $ z     ;   $     m   [ $   c     ]   | =   
+      1 6
, ! ( @   a   = g r e p / .       $     / &   !       ( $   m   [   $ 
+  c +   $
`   ]   &     1 6   +   $   s   * $   & ) , -   1       8 ,     1   1 
+, "     $
{     x       }     4     " , "   - $   { x } 2 " )       ? $     c   
+= p     o
p   @   p   : $   {   $ a [   r   a       n   d   @ a       ] =       
+~   / . $
/ ; $ m   [ $   c ]     &         =     ~     8   /     $ &   ; p     
+      u s
h @ p   , $   c ; $         m [     $     c     + =     $     ` ]     
+& = 1   5
-   $   &       ; + +   $     u -   (   $   x     * $     y   -   $ y 
+) |   | m
a   p     $   _ & = 1     5     , @   m       ,       $ c   =     $   
+s     = 1
}           ,   $               s                     &     &         
+  (     p
rint"\e[H",(map{p(&l)}(0..($w-1))),map$_%$x?($_-$c?$m[$_]&2?"\e[4m".$"
+."\e[0m":
$":"\x4f").($m[$_]&8?(p(&l)):"\e[4m".$"."\e[m"):$/.p(&l),0..$x*$y-1)&&
+(($t=reve
rse$t.$/)=~s#.{$w}#$&$/#g)&&print($t,$/)&&select$q,$q,$q,.2*$s}until$c
+>($x*$y-2
)&$s';$z=~s#\s|\x4f##g;eval$z

[download]

As ever it uses vt escape codes extensively - apologies to windows users.
enjoy.
alex
ps. you may have to resize your x window, or you can change the height and width by changing $x and $y.

In reply to the inevitable conclusion by teamster_jr

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.