# wc
perl -le 'print $==()=<>' file