How to make the first capital and the rest lowercase except for latin with Perl regular expressions?

Question

Perl

How to make the first capital and the rest lowercase except for latin with Perl regular expressions?
There is text
Name HP MODEL Description
Name Description
Name HP
How to get
Name Hp Model Description
Name Description
Name Hp

Answer 1

The first thing that came to mind:

use utf8;

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

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