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