Как сделать только первый символ в каждом слове в верхнем регистре в Perl

Question

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

Answer 1

my $str = "FOOBAR FOOBAR"; 
$str =~ s/(\S+)/\u\L$1/g; 
print $str; 

выход

Foobar Foobar 

Проверить ucfirst и lc в perldoc.

Answer 2

Это идеальная работа для ucfirst(), нет необходимости REGEX здесь:

$ echo 'FOO BAR BASE' | 
    perl -nE '$_ = lc($_); say join " ", map { ucfirst $_ } split /\s/' 

Выход:

Foo Bar Base