perl

In perl, how would one read a text file into an array such that each word (as separated by whitespace) would become a different element?

>>5
I pick C++

ifstream ifs("file.txt");
vector<string> words;
string file, word;
getline(ifs,line,(char)EOF);
istringstream is(line);
while (is) {
    is >> word;
    words.push_back(word);
}