<>;print 30*grep$_*10<=eval$C=~y/ /+/r,glob$C=<>