$x|=2x y///c.3for<>=~/(?=(c.*?w.*?w))/g;print index$x,3