foreach $word (split /\s+/) {
   ...
}