open(OLD,'<','large_file.txt') or die "$!";#open old file
my @old_file_contents = <OLD>;
close(OLD);
open(NEW,'>','test.txt') or die "$!";#open new file
foreach my $line(@old_file_contents){
     $line =~ tr/\t//d; #delete tabs
     print NEW $line; #print line to new file
}
close(NEW);