view release on metacpan or  search on metacpan

lib/Acme/Labs.pm  view on Meta::CPAN

srand; rand($.) < 1 && (our $but = $_) while <DATA>; chomp $but;				# randomly choose a line of DATA
our $Qyes; our $yEs="I think so, Brain";
our $pondering = qq(BRAIN:\t"Pinky, are you pondering what I'm pondering?"\nPINKY:\t"$yEs, $but"\n\n);

my @interjections=qw(NARF POIT ZORT EGAD);
my $interjections=join("|", @interjections);									# OR'd list for regexes

our (%zord, %chroz);
my $c=ord("A"); foreach my $w (@interjections) {my $l=length $w; for(my $n=0; $n<2**$l; $n++) {my $narf; my $b=unpack("b$l", chr $n); for my $i (0..$l-1) { $narf.=substr($b, $i, 1)?lc substr($w, $i, 1):uc substr($w, $i, 1); } $chroz{$narf}=chr($c); $...

#----------------------------------------------------------------------

sub AYPWIP 
{
	local $pondering="\Q$pondering\E"; 
	local $yEs="\Q$yEs\E";
	local $Qyes="\Q$yEs\E";

	$pondering=~s[$Qyes.*\s*][$yEs]s;