CINXE.COM
irc.perl.org
<html> <head> <title>irc.perl.org</title> </head> <body bgcolor="black" text="white" link="gray" alink="white" vlink="white"> <center> <!-- http://www.perlmonks.org/?node_id=45213 --> <table><tr><td><pre><tt> $_='ev al("seek\040D ATA,0, 0;");foreach(1..3) {<DATA>;}my @camel1hump;my$camel; my$Camel ;while( <DATA>){$_=sprintf("%-6 9s",$_);my@dromedary 1=split(//);if(defined($ _=<DATA>)){@camel1hum p=split(//);}while(@dromeda ry1){my$camel1hump=0 ;my$CAMEL=3;if(defined($_=shif t(@dromedary1 ))&&/\S/){$camel1hump+=1<<$CAMEL;} $CAMEL--;if(d efined($_=shift(@dromedary1))&&/\S/){ $camel1hump+=1 <<$CAMEL;}$CAMEL--;if(defined($_=shift( @camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if( defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h ump];}$camel.="\n";}@camel1hump=split(/\n/,$camel);foreach(@ camel1hump){chomp;$Camel=$_;y/LJF7\173\175`\047/\061\062\063\ 064\065\066\067\070/;y/12345678/JL7F\175\173\047`/;$_=reverse; print"$_\040$Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y /LJF7\173\175`\047/12345678/;y/12345678/JL7F\175\173\0 47`/; $_=reverse;print"\040$_$Camel\n";}';;s/\s*//g;;eval; eval ("seek\040DATA,0,0;");undef$/;$_=<DATA>;s/\s*//g;( );;s ;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__ \124 \1 50\145\040\165\163\145\040\157\1 46\040\1 41\0 40\143\141 \155\145\1 54\040\1 51\155\ 141 \147\145\0 40\151\156 \040\141 \163\16 3\ 157\143\ 151\141\16 4\151\1 57\156 \040\167 \151\164\1 50\040\ 120\1 45\162\ 154\040\15 1\163\ 040\14 1\040\1 64\162\1 41\144 \145\ 155\14 1\162\ 153\04 0\157 \146\ 040\11 7\047\ 122\1 45\15 1\154\1 54\171 \040 \046\ 012\101\16 3\16 3\15 7\143\15 1\14 1\16 4\145\163 \054 \040 \111\156\14 3\056 \040\ 125\163\145\14 4\040\ 167\1 51\164\1 50\0 40\160\ 145\162 \155\151 \163\163 \151\1 57\156\056 </tt></pre></td></tr></table> <p><a href="https://kiwiirc.com/nextclient/#irc://irc.perl.org/#perl">irc.perl.org</a> - Port 6667</p> <p><a href="https://kiwiirc.com/nextclient/#ircs://ssl.irc.perl.org:7062/#perl">ssl.irc.perl.org</a> - Port 7062</p> <p><i>This network has a <a href="rules.html">Standard of Conduct</a></i></p> <br /> <p>[ <b><a href="faq.html">FAQ</a></b> ] [ <b><a href="rules.html">Rules</a></b> ] [ <b><a href="staff.html">Staff</a></b> ]</p> <p>[ <b><a href="channels.html">Channels</a></b> ]</p> </center> <div style="padding-top: 5em;"> <center> <p>Sponsored by:</p> <table cellpadding="50"> <tr> <td><a href="http://tamarou.com"><img border="0" src="tamarou.png" alt="Tamarou" /></a></td> <td> <a href="http://www.shadowcat.co.uk"><img border="0" src="sc.jpg" alt="Shadowcat Systems Limited" /></a> </td> </tr><tr> <td> </td> <td> <center><a href="http://perl.org"><img border="0" src="http://st.pimg.net/perlweb/images/camel_head.v25e738a.png" alt="perl.org" /><br />perl.org</a></center> </td> <td> </td> </tr> </table> </center> </div> </body> </html>