perl -le "print join(' ', map({ucfirst \$_;} split(/ /, 'toto fait du velo', 0)));"