for(<>){$&gt$m&&print$m=$&while s/.//;print$m="\n"}