#!/usr/bin/perl -ln
$t+=@a=/\w+/g;END{print$t}