seek $fhRead, $r2 - $w2, 1;