Um..Yeah. I need to stop posting things. hookbot works at my company. This is an issue we discovered. I've been busy and haven't had time to post it. Looks like he did (without mentioning to anybody). Sorry for the wasted time on this post. Look at Infinite m//g ?? instead (and send any "++" to hookbot).
my @a=qw(random brilliant braindead); print $a[rand(@a)];