Beefy Boxes and Bandwidth Generously Provided by pair Networks Frank
Keep It Simple, Stupid
 
PerlMonks  

/r JAPH

by trizen (Friar)
on Dec 29, 2012 at 08:41 UTC ( #1010803=obfuscated: print w/ replies, xml ) Need Help??

Just for fun :P 
print$/=~s~~r~r=~s~~e~r=~s~~k~r=~s~~c~r=~s~~a~r=~s~~h~r=~s~~ ~r=~s<>
~l~r=~s~~r~r=~s~~e~r=~s~~P~r=~s~~ ~r=~s~~r~r=~s~~e~r=~s~~h~r=~s~~t~r
=~s~~o~r=~s~~n~r=~s~~a~r=~s~~ ~r=~s~~t~r=~s~~s~r=~s~~u~r=~s~~J~r////

[download]

Bonus: \&~=~'\(';print+s{\x42}{$"}r,for($`..-$`)[4889245,650731,2540044,8375064,1505137],$/;

Comment on /r JAPH
Select or Download Code
Re: /r JAPH
by pvaldes (Hermit) on Dec 29, 2012 at 23:44 UTC
    print

$INPUT_RECORD_SEPARATOR <- newline

=~s//R/r
=~s//E/r
=~s//K/r
=~s//C/r
=~s//A/r
=~s//H/r
=~s// /
=~s<>/L/r   ; mmh ?
=~s//R/r
=~s//E/r
=~s//P/r
=~s// /r
=~s//R/r
=~s//E/r
=~s//H/r
=~s//T/r
=~s//O/r
=~s//N/r
=~s//A/r
=~s// /r
=~s//T/r
=~s//S/r
=~s//U/r
=~s//J/r
////

    [download]
[reply]
[d/l]

Back to Obfuscated Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://1010803]
Approved by Athanasius
Front-paged by Athanasius
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2013-05-25 01:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best material for plates (tableware) is:









    Results (516 votes), past polls