Hello,
I am trying to run some code that will remove three characters from a flat file database, namely " { and }

The code I'm using below works OK for about 2/3 of the text file (TTable.txt), but is not removing the characters from the bottom third of the file. There are 2500 rows in it (300kb).

##############################################
open (IN, "+<".$dir."/TTable.txt");

@file = <IN>;

seek IN,0,0;

foreach $file (@file){
$file =~ s/"//g; # remove quotes " with nothing //
$file =~ s/{//g; # remove left bracket { with nothing //
$file =~ s/}//g; # remove right bracket } with nothing //
$print IN $file;
}
close IN;
#################################################

Does anyone have any suggestions?
Thanks in anticipation.