$text = file1.txt
open (DAT,"$text");
@stuff = <DAT>;
close(DAT);

open (NEWDAT, ">file2.txt");
print @stuff;
close(NEWDAT);