non-parametric Bayesian text segmenter implemented in Perl