perl -e '$c="ePreh";$k="tonat";$h="ckeJ";$a="ahlr";
$h=reverse($h);$e=$h.$a.$c.$k."sur";
(substr($e,0,1),substr($e,-1))=(substr($e,-1),substr($e,0,1));
$e=reverse($e);$e=~s/stan/st an/;$e=~s/rP/r P/;$e=~s/rlh/rl h/;
$e.="\n";print($e);'