for my $word ($line =~ m/([[:alpha:]]+)/g) {