Разбор и удаление частей строки в Perl

Question

Мне нужна помощь в разборе строки чьего-то имени. Я хотел бы взять строку и удалить ее, чтобы в строке было только имя.

Предположим, у меня есть такое имя

Mr. John Doe
John Smith.

В обоих случаях я бы хотел получить только имя строки и удалить все остальные символы.

---

РЕДАКТИРОВАНИЕ:

Таким образом, для обеих строк после их анализа в них будет John

Мне было интересно, есть ли способ решить эту проблему с помощью регулярных выражений.

Answer 1

Это требует использования такого модуля, как Lingua :: EN :: NameParse . На самом деле.

Answer 2

Используйте split , чтобы поместить части имени в массив.

Изучите первый элемент, чтобы увидеть, является ли он заголовком («г-н., Мисс., Др. Или мисс»). Если нет, возьми это. В противном случае возьмите следующий элемент и остановитесь.

РЕДАКТИРОВАТЬ: Это ответ на оригинальный вопрос ОП.

РЕДАКТИРОВАТЬ 2: Пожалуйста, объясните любые отрицательные голоса. Как уже говорилось, ОП изменил свой вопрос после того, как я ответил на него.