5 ms·perl says, '$_="krJhruaesrltre c a cnP,ohet";$_.=$1,print$2while s/(..)(.)//;'by khoerling 19y agoperl says, '$_="krJhruaesrltre c a cnP,ohet";$_.=$1,print$2while s/(..)(.)//;'