- or download this
$newfirst .= join(" ",(ucfirst $nfirst[$i]) );
- or download this
@nfirst = map { ucfirst $_ } @nfirst;
- or download this
my $NewFirst = join " ", @nfirst;
- or download this
my $NewFirst = join " ",
map { ucfirst $_ },
split /\s+/, $first
;