$$_++for<>=~/./g;print sqrt+($N-$S)**2+($E-$W)**2