BEGIN{RS=e}{for(;c=$++i;print d)for($i=d;$!sub(".$",e,c)!~"\\y"c;)d=c}