my $start = 'to say it once'; print join ' ', map { ucfirst($_) } split '\s', $start;