in reply to "20q" in perl?

this node might help, though it doesn't have a knowledge base (you'd need to code that in yourself). Look at merlyn's response as well, it a nice alternative...