$b = "Just another Perl hacker.\nd"; $c = uc join '', (split//,$b)[5,1,3,7,16,7,19,26]; # $c is now "AUTOLOAD" chop $b; # to remove the "d" sub a{$b}; # this makes &a return $b eval # *AUTOLOAD = *a join '=', # '*$c = *a' map "*$_", # '*$c', '*a' qw( $c a ); # '$c', 'a' print _Obfuscation_(); # calls AUTOLOAD()