First Japh

[Discipulus]

Not sure if can be considered an obfu..

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

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

L*

[KurtSchwind]

The alternating shift and pop are nice. And it ties in nicely with the alternating dashes.

Well done!

[Anonymous Monk]

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-