perl docsearch