It has been suggested that I deobfuscate it...

#!/usr/bin/perl -w
$:='un';       # Not using format: this is just a variable.
use strict;
               # No multidimensional arrays either, so
$;=1;          # this is also just a variable.
$~='ken';      # Another variable (since not using format).
use Tk;
$^='its';      # Another variable.  (format again)
$==1+$;;       # And another, set to 2.
$"=$=*$=*0113; # =300.
$-=0661;       # =433.
$.=MainWindow->new(); # I didn't know you could assign $.
$/=$.->Canvas( # Changes how <FOO> behaves (but we
               # don't use that operator here anyway).
          -relief=>'s'.$:.$~, # sunken
          -bd=>$=,            # some window prop =2.
          -width=>$=*$",      # Window is 600
          -height=>$=*$"      #   pixels square.
         );

$\='JAPH';
# This will be printed after any print,
# but there are no prints, more's the pity.

$/->yviewScroll($-,$:.$^); # Scrolls 433 units?
# I don't know enough Tk to know exactly.

sub _{$/->createLine(@_)}
# All the calls below apparently create lines.

$/->xviewScroll($-,$:.$^); # Scrolls horizontally?
# Again, my knowledge of Tk is lacking.  433 units
# worth of something, in any case.

for$,($;..$"){#        foreach $, (1..300) {
  ;           #           do_nothing();
  $%=$"-$,;   #  we have n and 300-n ($, and $%)
  _($,,$;,$;,$%);  #  line((  n , 1)to(  1  ,300-n))
  _($,,$;,$;,-$%); #  line((  n , 1)to(  1  ,n-300))
  _(-$,,$;,$;,$%); #  line(( -n , 1)to(  1  ,300-n))
  _(-$,,$;,$;,-$%);#  line(( 300, n)to(  1  ,n-300))
  _($",$,,$%,$");  #  line(( 300, n)to(300-n, 300 ))
  _($",-$,,$%,-$");#  line(( 300,-n)to(300-n,-300 ))
  _(-$",$,,-$%,$");#  line((-300, n)to(n-300, 300 ))
  _(-$",-$,,-$%,-$");#line((-300,-n)to(n-300,-300 ))
}
$/->pack;MainLoop;
# I know just enough Tk to know this displays it all.

[download]

So it draws a regular pattern of crisscrossing lines. [runs it to see] close enough together that it looks like solid areas. We've all plotted this in junior high math, but usually on quarter-inch graph paper with one vertex each square; it looks quite different with directly adjascent vertices like this. The first four draw the inside shape, and the last four calls to _ draw the frame. 

for(unpack("C*",'GGGG?GGGG?O__\?WccW?{GCw?Wcc{?Wcc~?Wcc{?~cc'
.'W?')){$j=$_-63;++$a;for$p(0..7){$h[$p][$a]=$j%2;$j/=2}}for$
p(0..7){for$a(1..45){$_=($h[$p-1][$a])?'#':' ';print}print$/}

[download]

In reply to Re: Tiptoe through the punctuation by jonadab
in thread Tiptoe through the punctuation by Mr. Muskrat

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.