get~~/\s.+/;say sum $/X>=[\+] sort +<<words