Create corpus_extract()

[koheiw]

corpus_extract(), which only extracts strings that match a given pattern and saves them in a docvar, is useful to separate what = tag in corpus_segment().