open FILE, "+<$filename";
undef $/;
$old_data = <FILE>;
#do some stuff
seek FILE, 0, 0;
print FILE $new_data;