--$,;~~$,<($"=length$1)or$,=$"for<>=~/(?=(c.*?w.*?w))/g;print$,