How can I capitalize the first letter of each word

Question

What is the easiest way to capitalize the first letter in each word of a string?

Answer 1

$capitalized = join '', map { ucfirst lc $_ } split /(\s+)/, $line;

By capturing the whitespace, it is inserted in the list and used to rebuild the original spacing. "ucfirst lc" capitalizes "teXT" to "Text".

Answer 2

Note that the FAQ solution doesn't work if you have words that are in all-caps and you want them to be (only) capitalized instead. You can either make a more complicated regex, or just do a lc on the string before applying the FAQ solution.

Answer 3

You can use 'Title Case', its a very cool piece of code written in Perl.

Answer 4

This capitalizes only the first word of each line:

perl -ne "print (ucfirst($1)$2)  if s/^(\w)(.*)/\1\2/" file

Answer 5

$string =~ s/(\w+)/\u$1/g;

should work just fine

Answer 6

Take a look at the ucfirst function.

$line = join " ", map {ucfirst} split " ", $line;