$/=Z;$@--,$.+=map{print"$. $_
"}/.+ $@$/gmfor(<>)x($@=$$)