(my first attempt at obfu)

#!/usr/bin/perl -w
use strict;
my($i,$t)=0;
my@a=(0,0);my$s
=qq*?tuboet:gps8*;
my($c,$v)=0;print(pack(
q$c$,(int($c++)&1)?($i-=$_):
($i+=$_)))foreach(qw#106 9 15 8#);
$s=~s%[^a-z]% %g;$s=~y.b-z.a-y.;print$s;

   $t=q|j[    a6pAh    [j0aBp]h  0j2  a[p
       0h1   j]a 54p   [h4   j1a [p0  hDj
       [a0  p1h   [j0  a5p   ]h0 jCa]p0h3
       j[a 0pDh]j5a2p[ h5j0a]p0  hBj  [a0
pDh   ]j0 a6p     ]h4 jCa       [p4  h8j
  ]a0p7h[0 j2a     [p0 h8j       ]a0  p6h
    [j0a   Dp]     h6j 8ah       |;$  t=~

s/([\[\]])([^\[\]]*)/ @a=($1,$2);$a[0]=~
       y.\[\].10.;$a[1]=~s'[\n a-z.]''g;$
             a[1]=hex($a[1]);($a[0])?( $v
                     +=$a[1]):($v-=$a[1])
                             ;print(pack(
                                 q:c:,$v)
                                    )/gem
[download]