$_='?od lliw reifidom g/ eht nehw pool elihw a esu yhW'; s/(.)/$,=$1.$,;$==length$';($=!=0)?'':$,/eg; print "$_\n";