Select Code to Download

open(OLD,'<','large_file.txt') or die "$!";#open old file
my @old_file_contents = <OLD>;
...
     print NEW $line; #print line to new file
}
close(NEW);

$s =~ tr/\t/ /;