perl -pe 'tr/A-Z/a-z/; s/(\S+)/\u$1/g;'