view release on metacpan or  search on metacpan

lib/YourBrainForOnceDude.pm  view on Meta::CPAN

package YourBrainForOnceDude;
our $VERSION = '0.18';
require Acme::Buffy;
INIT {
    local $/; my @magic = qw(-11 3 5 -3 11);
    my @brains=Acme::Buffy::_unslay(($B=<DATA>)=~s/(r(a(i(n))))/join'.',map"chr(ord(\$$_)+$magic[$_])",(1..4)/geieio,$B)=~/(.*?\012)/g;
    END {printf $brains[int rand(@brains)], __PACKAGE__}
}
__DATA__
BRaiN bRAIN BRaiN bRAIN BraIN BrAIN	bRAiN BrAIN BRAin	braIN BRAiN BraIN brain	brAIn BRAiN BrAIN BRain	BrAIn bRAiN BraIN BRaiN	BrAIn BRAin	BraIN BrAiN	BraiN	bRAin BRaIN BraIN	Brain bRaiN BrAIN BRaiN	BrAiN bRAin BraIN brain	brAiN bRaiN	brAIN bRAIn	braI...