get~~/\s.+/;say +grep ($/-=*)>=0,sort +<<words