my @words;
    my $len;

    while (<TEXT>) {
        $len += @words = split /\s+|[,:]/;
    }

    print "LEN = $len\n";