$t=$s+=$_/4for@a=glob<>;$t*=$s-$_/2for@a;print$t**.5