[FWP] JAPH

[Peter Scott <Peter@PSDT.com>]

I have crafted my first JAPH (translation: too much time on my hands), 
although I have a suspicion that it must have already been taken by Randall 
or Abigail (is there an index somewhere?  I don't want to put it in my .sig 
and then be accused of plagiarism) since it is fairly simple and only uses 
one trick (I dislike character cipher obfuscations, so I haven't obscured 
it any further with one of those).

Anyway, presented here with helpful white space instead of packing it 
in.  Creative or shorter variants solicited.


BEGIN { $_= q(
   sub xxx {
     $xxx =~ tr/:/ /s;
     "$_[0,1] $xxx";
   }
   );
   s/xxx/UNIVERSAL::AUTOLOAD/g;
   eval
}

print hacker perl another just;


--
Peter Scott
Pacific Systems Design Technologies


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe