--$\;$\+=$-=$1=~y///c-$\for<>=~/(?=(c.*?w.*?w))/g;print