perlではtailsさんに勝てずなのでrubyをした。

solution

N E W Sをそれぞれ数えて軸ごとに差をとってhypot。

implementation

ruby $61$byte

p eval'Math.hypot '+'N-S,E-W'.gsub(/\w/,&gets.method(:count))