open(File, "file.txt");
while($text = <File>){
@words = split(' ', $text);
for $word(@words){
print "$word\n"}};