Update searchCorpus.perl