Help for this page
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+/'
www.com | www.net | www.org
No recent polls found