At this point, this node is rather historic (look at this post date vs that of the other posts in this node), but I think as this node is a good historic point of question, that it is worth referencing a recent node that answers the questions.
How to test all TT2 tags are escaped.
my @a=qw(random brilliant braindead); print $a[rand(@a)];