I'll put the code here, and basic instructions (but no solution) in a readmore.

#!/usr/local/bin/perl -w
use strict;

   ($-) =$ /=~ s
  }
 .*
 }
 shift || $ =
}ex

;$ == shift || $ =* 2/1/2/1/2/1/1;

for ("japh".."joke") {
   push @_, @{
    ([2%2/2/2,
      2%2%2/2],
     [2%2/2%2,
    $/] , [$ = ,$ // 2])
    [rand length substr $_,  1]
   }; s
  }
  (\d+) || just another perl hacker
 }
 $ 1/2 + 2 *& _* 2/2/2/2
}ex

for $-, $%;
   sub _{pop}
   $_[$%][$-] = '*'
}

map {print $_ || $"} @$_,"\n" for @_;
[download]