get;$_=words;say 30*grep *~0 <=.sum,@$_