perl -le '$_="ZENO WAS HERE";s/([^\s.,-]+)/\u\L$1/g;print'
    perl -le '$_="DANGER was hERe too";s/(\S+)/\u\L$1/g;print'