I got below: C:\PERL>perl -e "@_='Js nte elHce rka rPrhoAtu'=~/./g;for$}(1..$#_+1){while(<$0>){(s|e|($}%2?shift@_:pop@_)|e);print}}" -J-u-s-t- -A-n-o-t-h-e-r- -P-e-r-l- -H-a-c-k-e-r-