fsumup

#!/usr/bin/perl -w

$sum = 0.0;

while (<>)
{
    foreach (split(/ +/,$_))
    {
        $sum += $_;
    }
}

print "$sum\n";