Hi Mariola

Corion and cdarke have given good answers for your question.

In addition, I think you are parsing Names which contains titles.

You can take a look at Lingua::EN::NameParse which may help you. This module also contains many name titles like yours.