Как сделать первую заглавной, а остальные строчными кроме латиницы регулярными выражениями Perl?

Question

[4upik]

Как сделать первую заглавной, а остальные строчными кроме латиницы регулярными выражениями Perl?

Есть текст

Название HP MODEL описание
название описание
Название HP

Как получить

Название Hp Model описание
Название описание
Название Hp

Comments

[Moskus]

Работа с регистром букв - не та задача, которая решается регулярными выражениями. Иначе вам придется всю таблицу соответствия писать. Регулярками тут можно выбирать подстроки, а конвертить в uppercase - через uc

Answer 1

[Ilya33]

Первое что пришло на ум:

use utf8;

my @a = (
    "Название HP MODEL описание",
    "название описание",
    "Название HP"
);

for my $str (@a) {
    $str = ucfirst(lc($str));
    $str =~ s/\b([a-zA-Z])/uc($1)/eg;
}