Since we're golfing, here's a 51-character version in fairly readable J: wc=:[:+/[:(1:,([:#'\S+'&rxmatches),>:@#);._2 freads I'm guessing that a real J wi

Since we're golfing, here's a 51-character version in fairly readable J: wc=:[:+/[:(1:,([:#'\S+'&rxmatches),>:@#);._2 freads I'm guessing that a real J wizard could squeeze out a few more characters. :)