Sounds like another Japh

[osfameron]

use strict;use Text::Soundex;
my%w=map{((soundex$_),$_)}qw(

Yet another JAPH for the 
obfuscated code section for
all you Perl monks.  Just a 
simple hack (but then I'm a 
simple hacker really).

Comments welcome! 
(warnings expunged as per
Tilly's suggestion)

);print map{"$w{soundex$_} "}(qw(

jossed a-needier poorly hooker

));

UPDATE: And now without the variable %w...

use strict;use Text::Soundex;
print map{${{map{((soundex$_),$_)}qw(

Yet another JAPH for the 
obfuscated code section for
all you Perl monks.  Just a 
simple hack (but then I'm a 
simple hacker really).
Updated version without 
warnings and with anonymous
hash.

Comments welcome! 

)}}{soundex$_}." "}(qw(

jossed a-needier poorly hooker

));

Cheerio!
Osfameron

[Nooks]

That's pretty cool. I do so enjoy obfuscated code that teaches me something about Perl when I understand it, as opposed to stuff that's merely hard to read, or has all the whitespace taken out, or such (not that there's a whole lot of that about, mind).

[tilly]

Please don't use warnings; in obfuscated code. People are not supposed to figure it out, and it won't run in 5.005 (widely used, and many do not consider 5.6.0 truly production quality).

Thanks.

Ben

PS: Cute. :-)