while (<FILE>) 
{ 
   my @these_words = split(' ', $_);
   foreach my $this_word (@these_words)
   {
      
      $this_word =~ s/[[:punct:]]//g;
      $this_word = lc($this_word);
      push @all_words, $this_word;
     

   }
}