$ perl -E 'say "Name: @{[map ucfirst, split]}" while <>'
billy bob allen
Name: Billy Bob Allen
abc pqr wxyz
Name: Abc Pqr Wxyz