### ----------------------------------------------------
### -- Text::CSV
### -- Licenses: Artistic-2.0
### -- Authors: H.Merijn Brand (Tux)
### -- File: csv-pegex.pl
### ----------------------------------------------------
#!/pro/bin/perl

use 5.16.2;
use warnings;

use Pegex::CSV;

local $/;
my $sum = 0;
for (@{Pegex::CSV->load (<>)}) {
    $sum += scalar @$_;
    }
say $sum;


