perl -E"say(join('-', split('', reverse(ucfirst('hello')))))"