Select Code to Download

while (<>)
...
 chomp;
 print "$_<BR>";    # (Optional: print "$_<BR>\n"; for readability)
};

my @File=<INPUT>;
close INPUT;
...
 local $"="<BR>";   # (Optional: local $"="<BR>\n"; for readability)
 print "@File<BR>"; #(Optional: print "@File<BR>\n"; for readability)
};