"HALLO DU" in "Hallo Du" umwandeln

[Christian Kruse]

Hallo,

Wie kann ich einen String mit mehreren Wörtern, der nur aus Grossbuchstaben
besteht so umwandeln, dass alle Wörter klein geschrieben sind und nur mit
einem Grosbuchstaben anfangen?

Beispiel:
$a="HALLO DU"

Rauskommen soll:
"Hallo Du"

Vielleicht so:

$text =~ s/\b([a-z])([a-z]+?)\b/uc($1).lc($2)/eg;

Gruesse,
 CK