http://qs321.pair.com?node_id=731727

This is, of course(!) only meant for a buubot to 'eval: ', due to the wonderful things it stuffs into $_. To be honest, the join bit was a happy accident:
$_=$_->{args}[0],/(meow)/until$\=$1;$\++for 2**8..2**7*(join//,(/(\d)/ +g)[0..4])/22288.2;$\

Replies are listed 'Best First'.
Re: meow for buubot
by Limbic~Region (Chancellor) on Dec 20, 2008 at 14:34 UTC
    All,
    For those of you following along at home who have no idea who buubot is (source available svn://erxz.com/bb_code), it is an IRC bot written by BUU that hangs out on #perl (freenode). He is a sometimes helpful bot that will also *mostly* safely eval perl 5 code for you in the channel. It is a common pass time to get him to crash or do something unexpected but we usually encourage those trying to do so in #buubot rather than #perl

    Cheers - L~R

Re: meow for buubot
by Anonymous Monk on Dec 20, 2008 at 11:11 UTC
Re: meow for buubot
by hacker (Priest) on Apr 29, 2010 at 16:58 UTC

    I guess the project is no longer at that URI...

    Has it moved elsewhere? The #buubot channel on Freenode seems dead too.

Re: meow for buubot
by BUU (Prior) on Apr 29, 2010 at 17:21 UTC
    Just a side note, since this ranks highly on google, the actual sourcecode is at svn://erxz.com/bb3