Select Code to Download

#!perl.exe
my $file="infile.txt";  //stick infile in $contents
...
open(OUTFILE, "<outfile.txt");     //stick result in outfile
print OUTFILE $contents;
close OUTFILE;

this is a
wrapped line.
...
quote."
this first line is fine.
so is this one.

this is a wrapped line.
"This is a wrapped quote."
This first line is fine.
So is this one.