s>>ne>;s?..?$&or?;$_.=q!ej!;print$&while s!(.)$!!;