my @words = split/\s+/, $word;