Here is a quick decon:

$b="Just another Perl hacker.\nd";

# $c=uc join'',(split//,$b)[5,1,3,7,16,7,19,26];
# this line grabs chars out of $b and upper cases
# them to give:
$c = "AUTOLOAD";
# Hmm somwhow I don't think we are going to see
# the crafty assembly of the _Obfuscation_() sub

chop $b;
# this removes the 'd' from JAPH needed to spell
# the word AUTOLOAD

sub a{$b};
# here we define a sub called a which returns
# the string 'Just another Perl hacker.\n"

# eval join'=',map"*$_",qw($c a);
# this is eval *$c = *a; 
# otherwise written as:
# *AUTOLOAD = *a; 
# or more traditionally
sub AUTOLOAD {a()};

print _Obfuscation_();
# print AUTOLOAD sub which is a() which returns JAPH
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print