$_='abcdefghijklmnopqrstuvwxyz'=>tr`zlbwcvduaxyetfsrhgmjipoqnk`
ruesktcjr__aah_on_htrelpe`=>s`_` `g=>s`\b([^A-Z])`\u$1`g=>print;