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 ))))}
