Good point about the hang. On our system where we discovered the problem it did actually hang.

Thanks for the info -- that answer seems to make a lot of sense, and looks like a rather big caveat for regex writers.

my @a=qw(random brilliant braindead); print $a[rand(@a)];