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

##</code><code>##

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

##</code><code>##

#!/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;print;