my @words = map { split " ",$_ } <DATA>;
print "@words\n";