Первую заглавной, остальные строчными

[Duke]

Выручайте, что-то я совсем запарился

исходный текст лежит в массиве @model и состоит из трёх значений (LAND, CRUISER, 100), в цикле по-одному эти словечки извлекаются

исходный текст: LANDCRUISER100
надо получить : LandCruiser100

пишу так:
foreach $key(@model){ ($key)=$key=~/\\u\\w\\L\\w+\\Е/ };

скрипт работает, но ничерта не выводит

[Mog.]

for(@model){ print if s/(\\w)(\\w+)/uc($1).lc($2)/ge}

[mike]

foreach (@model) { print ucfirst lc }

[Mog.]

mike круто!!!

[Duke]

Большое спасибо обоим.

Разница вот лишь в чем, в решении от Mog., откорректированные значения записыватся в массив @model, а в решении от mike, они не записываются (?), хотя решение очень красивое

[mike]

Duke:
они не записываются

Ну дык, если нужно записывать, то вместо print поставить присваивание Основное ведь - преобразование.

Mog.
[OFF][/OFF]