in reply to Capitalize only the first letter of the first word in a string

You need lc also: 
use warnings;
use strict;

while (<DATA>) {
    s/(\w+)/ucfirst lc $1/e;
    print;
}

__DATA__
 BELLMONT NY
 NEW YORK NY

[download]

outputs: 

 Bellmont NY
 New YORK NY

[download]

In Section Seekers of Perl Wisdom