Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

My First Block JAPH

by mousey (Scribe)
on Sep 19, 2002 at 23:29 UTC ( #199341=obfuscated: print w/replies, xml ) Need Help??

My first block japh. Comment, good or bad.
$_="babbalboonaboobabooluaba" ;$_=""."s#b#.\b.\b.\b#;";eval ;s#(.*)# \b\b\b#;$b="ja"."; print;\$_=\$b;";$b =~ s#\s+ja ;print;#\b#g;eval;$_=$b;s#ja. .#p #;@b=split(/;/,$b);$_="\b \b\b\b$b[0]";s#\s##;print;$_= "211 401";$foo= chr((((100*3) -80)/20)+21);@b=split(/$foo/, $_);$i;foreach(@b){chomp($_); chomp($_);$b[$i]=reverse($_); $i++;};for(@b){print chr $_;}

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (4)
As of 2022-12-09 02:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?