Playing with numbers to create a first obfuscation.

#!/usr/bin/perl
                          $t=+qw/c/                       ,$c=-0,$s
                          ="Just an                       other Perl
                         hacker,";                       for($c<12)
                         {@1=+qw                         /34 0 -10 
                        8 79 6 0                        -67 9 14 
                        3 30/,,@=                       +qw/make
                       it canonic                      al Just for
                       (fun;$++;                       $do until;it
                      ){another                       $JAPH}/,
                      @2=+qw                          /46 101 124
                     100 -47 98                      97 166 98
                     87 111 14                       /,push @g,
   pack$t, z;$foo>>$s<<pack 'h',$foo;for $i (@1){u->($i,$c), p->($i,$c
+++);sub d
   {@g}sub p($$\%$$;$&@){push @g,pack($t,($_[0]+$2[$_[1]]))}sub u($$$;
+$\@$$@*;$)
   {unshift@g,pack($t,($_[0]+$2[$_[1]]) + $_[0])}}}print d;sub z{(((((
+)=$s=~/\w*
                   \w/g)+(()=                      $s=~/\b \b
                   /g)+(()=$s                      =~/\w,/g)+ 
                  ++(()=$s=~                      /\b?\w/g))^
                  ((((()=$s=~                     /\w*\w/g)*
                 (()=$s=~/                       \b \b/g)*((
                 )=$s=~/\w                       ,/g)* ++(()=
                $s=~/\b?\w                      /g))) / (((()=
                $s=~/\w*\w                      /g)*(()=$s=~
/\b \b/g)*(()=$s=~/\w,/g)*++(()=$s=~/\b?\w/g))&((()=$s=~/\w*\w/g)+(()=
+$s=~/\b
\b/g)+(()=$s=~/\w,/g)+ ++(()=$s=~/\b?\w/g)))))^((((()=$s=~/\b \b/g)+ +
++(()=$s
=~/\b?\w/g)) & ((((()=$s=~/\w*\w/g)*(()=$s=~/\b\b/g)*(()=$s=~/\w,/g)* 
+++(()=
             $s=~/\b?                        \w/g)))/(
             ((()=$s                         =~/\w*\w
            /g)*(()                         =$s=~/\b 
            \b/g)*(                         ()=$s=~/\
           w,/g)*++                        (()=$s=~/
           \b?\w/g)                        )&((()=$s
          =~/\w*\w                        /g)+(()=
          $s=~/\b                         \b/g)+((
          )=$s=~/                        \w,/g)+ 
         ++(()=$s                        =~/\b?\w
         /g)))))+                       ((()=$s
         =~/\w*                         \w/g)+(
        ()=$s=~                        /\b\b/g)
        +(()=$s                        =~/\w,/g
       )+ ++((                        )=$s=~/
       \b?\w/g                        ))))}
[download]