c:\test>perl -E"say join'-',split'', reverse ucfirst 'hello';"
o-l-l-e-H