open(FILE, "<Testtest.txt") or die "Could not open file: $!";

my ($words) = (0);

while (<FILE>) {

    $words += scalar(split(/\W+/, $_));
}

print("words=$words\n");