Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

another JAPH

by phroggy (Monk)
on Mar 03, 2005 at 10:13 UTC ( [id://436137]=obfuscated: print w/replies, xml ) Need Help??

perl -e '$_=lc join fgjkqwxyz,</*>;$_=join $,,sort /[^\W\d_]/g;s/(.)\1*/chr(shift)^$1/ge;print' 43 23 16 16 69 7 9 7 29 2 14 30 77 62 10 2 29 82 59 21 22 29 18 10 85 112

I think this should run on any *nix system; correct me if I'm wrong.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://436137]
Approved by Tanktalus
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others romping around the Monastery: (5)
As of 2024-04-16 20:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found