$_=uc<>;print/\b\w/g