Select Code to Download

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

open(S, 'file.txt');
while($text = <S>){
...
close $fh;
print "done\n";
}};