Select Code to Download

perl -e "$_='ZENO WAS HERE';@ph=map {ucfirst(lc)} split(/[\s.,-]+/);pr
+int qq(@ph)"

perl -p -e "@ph=map {ucfirst(lc)} split(/[\s.,-]+/);print qq(@ph)" c:\
+foo.dat

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