on *:input:*:{  if $left($1,1) !== / { say $regsubex($1-,/(?=^| )(.)/g,$+($upper(\1))) | .halt } }