[gmfawcett]

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. :)