open INPUT, "foo" or die;
my @words = map /\S+/g, <INPUT>;