my $totalwords;
$totalwords ++ while $text =~ m{\b[A-Za-z]+\b}g;