in reply to ucfirst strangeness
perl -le "print join(' ', map({ucfirst \$_;} split(/ /, 'toto fait du +velo', 0)));" [download]