unx#perl -e '@_="Js nte elHce rka rPrhoAtu"=~/./g;for$}(1..$#_+1){while(<$0 >){(s|e|($}%2?shift@_:pop@_)|e);print}}'

win>perl -e "@_='Js nte elHce rka rPrhoAtu'=~/./g;for$}(1..$#_+1){while(<$0 >){(s|e|($}%2?shift@_:pop@_)|e);print}}"