<>;$\+=30*(10*$_<=eval$C=~y/ /+/r)for glob$C=<>;print