my $NewFirst = join " ",
                   map { ucfirst $_ },
                   split /\s+/, $first
    ;