join ' ', map { s/^(.)/\U$1/; $_ } split / /, shift