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

Comment on

( #3333=superdoc: print w/replies, xml ) Need Help??

Not what you might think it is...

#!perl -w use strict;$|++;my$X=1;my$Y=5;if (shift){$X=3;$Y=6;}@_=split(m//, " \\;'\@0");splice@_=>2,0=>"";my $racer=q!s/(.)/$-=3**$;++;$=+=$-*$1 /goSpeedgo!; $racer=~tr/Spdx//d;sub or() {while($$=~m(((\d{2,3})*((?<!^)(([^\n]{3})))[A-Z]*))g) {$==$; =$^S;($_=$5gt$3?$ 4gt$5?$1 :$2:$1) =~y.\.\-_.120.; eval$racer;$@=() ;($^[.= chr ($= +65))=~y[\[][ ] =~y!\!!\!\!!d;} $==chop ($==hex( $=));for(split (m=\x51==>$^[)){ ($@->{qq {$_[++$/ ]\n}}=$_)=~y (JXZ)(.!@);}$/= chr$/+--$/; $$="";$?= 16;$:=chop($:= '$|');$.=-6;my $d=" "x22;my$JAPH=reverse"JustAnotherPerlHacker ";$%=-25; my@S=(30,65,17,72,21,7,41,5,62,8,65,84,1,12,12,57,46,4,16); my$M5= "O-O";$-=-7; my $C= $:." "x(22) .$:;$;=chop$JAPH;{for(1..$?) {$^X=$d;for(1 ..rand($X )+1){substr($^X,rand(22),1)= "*";}if(++$%> 1 and rand ($Y) <1){substr($^X,rand(19), 3," $; ");} unshift@$, ++$.<1?"$:$d$:":"$:$^X$:";}$? =1;($C=pop@$) =~s/[BN]/ /g;substr($C,$=,3,$M5);print"\n"x$S[0];for(1..15 ){print"\040\040\040\040\040$$[$_-1]\n";}printf"\040\040"; printf "\040\040"; printf "\040$C T"; printf "%c%d%cM:%d%c" ,58,time-$^T,32, ++$-,32*1; printf "B:$S[7]\040\b \b\b\bN%c%d\40" ,58,$S[12]; printf "S%c \b%s%c\n" ,58,$S[17], 867 +5309-6144; printf "\40\40\040%c" ,32; print"\40" ,"_"x(24)," \040\40\040\40\b\040$$\n\n";$JAPH or$a=~s/[^\@]/0/g;!$JAPH and $a=~s/(.).{0,}/$1\n/;$@->{"\\\n"} =~s/(([^ ]+)( ))(.*)/ printf "%s%s%s%s",$1 #$+=$- ;chop($JAPH); ,join( $_[0],@_[3..4] ),$3,$4/oe;last if$a;$S[10-9] =time; $a=<>; next if $!+=time -$S[1] and time-$S[1] >3 and $a= "'\n";next if($a=~/^;$/and defined$=-- and $C !~s/[^$:]$M5([ Z]{0})/$M5 /)or ($a=~/^'$/and $=++and$C!~/$M5[^$:]/)or($a=~/^;;$/and$S[17]and defined ($=-=2)and--$S[17]and$C!~/[^$:]{2}$M5/)or($a=~/^''$/and$S[17] and $= +=2and--$S[17] and $C!~ /$M5[^$:]{2}/ )or($a=~ / /and$S[7] and substr($$[-1], $=,3," ")and --$S[7]&& 0);{if($a=~/n/i and$S[12]) { --$S[12];my$i= 15-1;$$[$i --]=~s/[^$:]/ /g while$i> 15-5}$$[-1]=~ /^.{$=}(?:p ){0}(.{3})/;next if($_= $1)=~/\*/and$a= "Q"; if($_=~ /[^ ]/){$$.=$;lt'a'? " $;":$;;my$J=chop ($JAPH); for( @$){s/$;/$J/;}next unless$JAPH; $; =$J;$S[rand(17)+3]++; }undef$a;last;}redo;}$@->{"0\n"}.=$!+$-;$a=~s{[;']{1,2}}{;}g; exists$@->{$a}or$a=$/;print"$@->{$a}\n";exit;}$$-=$$;while (<DATA>){m/#+/and &or or($$.=$_)=~s/[\n ]//mg;}__DATA__ -_-__-.._---...---___..._._---__-_-.___-__.._.-.-__--. _____-.-_-.-----_.-..-..._.----..-_-._-----._-..--.--- ._-.-____._----._____--.--..._-_.-.-.-._---..-_----_._ --.-.._.-.._-----.--__-_.- _._-----..- ._-._---._-. -_.._----__ -_. --_- ._-._-.-.-. ._- -..- ..---__--_. -....--.---- _---..-_--- -..-.._--..._---..____._-. ._...---.__ _-----___---_-_--.-_-.._-.-.-._-..._--.-_..--._--_---. ...__-._-..__-.__.-__-.._...-._---..-_----..---_...-.- ---_---..-_----_-_-..._----___---__--__-..--..._----.. -._--- #

In reply to Perl Racer by turnstep

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?

    What's my password?
    Create A New User
    and all is quiet...

    How do I use this? | Other CB clients
    Other Users?
    Others making s'mores by the fire in the courtyard of the Monastery: (11)
    As of 2017-05-25 17:11 GMT
    Find Nodes?
      Voting Booth?