I have a list of integers in column in a text file.

2 34 787 0 5
3 0 123 4 22
...

I need to sum up all F[3] and print the total.
How can you do that with a perl one liner?

Remebering that the columns are numbered from 0, here you go.

$ cat IN
2 34 787 0 5
3 0 123 4 22
$ perl -e 'while (<>) {@_=split(/\s+/); $sum+=$_[3]} print "$sum\n"' < IN
4

while bozo's solution works it can be more elegant. Why not use the
implicit loop and autosplit? like this:

perl -alne '$sum+=$F[3]; END {print $sum}' IN

Excellen solutions, thank you very much.