open IN, $file;
#do what you need to do
close IN;

open OUT ">$file";
#print out the data
close OUT;