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

));

##</code><code>##

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

));