open DF,"test.txt";
binmode DF;
my @test = <DF>;
close DF;

my $rec;
foreach(@test){$rec.=$_;}
open (DF,'>test1.txt') || die ("Failed to open test1.txt: $!\n");
binmode DF;
print DF $rec;
close DF;


##</code><code>##

open DF,"test.txt";
my @test=<DF>;
close DF;

# Print first 3 elements to prove read as an array
print "Line 1=$test[0]<BR>Line 2=$test[1]<BR>Line 3=$test[2]<BR>";

# Can we get around this? Waste of processing & memory!
my $rec; foreach(@test){$rec.=$_;}

open (DF,'>test.txt') || die ("Failed to open test2.txt: $!\n");
binmode DF;
print DF $rec;
close DF;