$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
cheers
tachyon
s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print
|