for my $word (split(/ /, $line)) {