perl -e '$_="ZENO WAS HERE"; print map {ucfirst(lc)," "} split/\s+/'