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

##</code><code>##

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

##</code><code>##

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