Perl: the Markov chain saw Sorry, Anonymous Monks and borged users cannot chat