Pretty cool ZDog, but it doesn't look so nice on a unix box because there's no newline- my prompt overwrites half the output. Fortunately, there's a simple fix, just change the second to last line

$_ = eval '$a';tr;[!@#$%^&*()123456789]; ;;s;\n;;g;s; ;;g;s;  ; ;g;
[download]

to

$_ = eval '$a';tr;[!@#$%^&*()123456789]; ;;s;\n;;g;s; ;;g;s;$;\n;g;
[download]

to get:

#!/usr/bin/perl
      $a='#$%K^&*@#$!@#$!@#$#$(*^%$$#&^$#%^$%^*)*(u*#$%^#$&^%&@@^@^@$%
+^%^
      &^%&#^&(*s%*(&#@%^@^@$%^@%$*#^&#^%&@$%^#$56^@%^@$^%t^(34^$%^%^#$
+%^#
      $%              #$%^$%^     B%^n%($            %^$#    %^$#%    
+^#$
      %^              $%^$#^       #$%^#$             %^$    #%^*o    
+%@&
      t^&*^h*     ^#$%^&&e@    ^    #$%^&    $%^&*    #$%    ^&$%^    
+$r%
      ^$%% Q$     %&%&^%*&    *$@    ^%*&    ^%&^%    %^^    $%^&^    
+^%%
      ^e$*&^&     ^*&^(*^    #%*%#    ^%&    ^%^&%    &%%             
+&%*
      %&^%*&%     r%^%*&$             %^%             ^*&             
+&*^
      *&^*&lI     *%&*^%*             &^%            %*&%    ^(&*&    
+*((
      a^    2     *(&)(*&    @$^*)    )(*    &)(!@#$%@#!&    )(*)(    
+*&c
      &*          (&)(*&)    %^&*(    (&(    *&)(*&(&k(*&    ^*(&^    
+*&%
      $%^        &(&%&$e#    !@#$%    $%^    &#@$%^&r@#$%    ^&*@#    
+$';
      $_ = eval '$a';tr;[!@#$%^&*()123456789]; ;;s;\n;;g;s; ;;g;s;$;\n
+;g;
      tr;[a-z][A-Z];[a-z] [A-Z];;my $zdog;s;([a-z])([A-Z]);$1 $2;g;pri
+nt;
[download]