Select Code to Download

# Open both IN_FILE and OUT_FILE here!

...
   next unless length;
   print OUT_FILE "$_\n";
   }

open (INFILE, "input.txt");
open (OUTFILE, ">output.txt");
...
$_ =~ s/foo/bar/gms;
print OUTFILE "$_\n";
}