This is the revision history for be in <freenode.net:#perlbot>

factoid_idsubjectcopulapredicateauthornamespace
15257 be is [eval $str="[fact [8ball [fact _be__get_list [arg]]]]"; $arg=[quote d [arg]]; if ($arg =~ /^\s*a\s+retard\s*$/) {$arg=[quote d [arg &n]]}; if ($arg =~ /^\s*$/) {$str} else {"<".$arg."> ".$str}]
<doing things that invalidates the test> OMG u r teh gr8est 10x thx k bye!
simcop2387 <*:##NULL>
15166 be is [eval $str="[fact [8ball [fact _be__get_list [arg]]]]"; $arg=[quote d [arg]]; if ($arg =~ /^\s*a\s+retard\s*$/) {$arg=[arg &n]}; if ($arg =~ /^\s*$/) {$str} else {"<".$arg."> ".$str}]
ERROR: syntax error at (IRC) line 1, near "kent\"
simcop2387 <*:##NULL>
13507 be is [eval $str="[fact [8ball [fact _be_list]]]"; $arg=[quote d [arg]]; if ($arg =~ /^\s*a\s+retard\s*$/) {$arg=[arg &n]}; if ($arg =~ /^\s*$/) {$str} else {"<".$arg."> ".$str}]
<leolo> OMG u r teh gr8est 10x thx k bye!
simcop2387 <*:##NULL>
7925 be is [eval $str="[fact [8ball [fact _be_list]]]"; $arg="[arg]"; if ($arg =~ /^\s*a\s+retard\s*$/ || $arg =~ /^\s*$/) {$str} else {"<".$arg."> ".$str}]
Not Available
simcop2387-lap <*:##NULL>
7924 be is <call be <arg>>
Not Available
simcop2387-lap <*:##NULL>
7923 be is <call be <arg>>
Not Available
simcop2387-lap <*:##NULL>
7922 be is <call be <arg>>
Not Available
simcop2387-lap <*:##NULL>
7921 be is [eval $str="[fact [8ball [fact _be_list]]]"; $arg="[arg]"; if ($arg =~ /^\s*a\s+retard\s*$/ || $arg =~ /^\s*$/) {$str} else {"<".$arg."> ".$str}]
Not Available
simcop2387-lap <*:##NULL>
7915 be is [eval $str="[fact [8ball [fact _be_list]]]"; $arg="[arg]"; if ($arg =~ /^\s*a\s+retard\s*$/) {$str} else {"<".$arg."> ".$str}]
Not Available
simcop2387-lap <*:##NULL>
7914 be is [eval $str="[fact [8ball [fact _be_list]]]"; $arg="[arg]"; if ($arg =~ /^\s*a\s+retard\s*$/) {$str} else {"<".$arg."> ".$str}]
Not Available
simcop2387-lap <*:##NULL>
5255 be is no perlbot <*:##NULL>