$|=($\=>@])=("\r"=>split//=>q=sPnh aku,telchte rJeaorr =);{($@,$))=map$***$_%25
=>3=>2;@][$)=>$@]=@][$@=>$)];print@];select$,,$,,$,,$*/$=;$*++-$=&&redo}print$/