am einfachsten mit Tie::File (welches u.U. aber performance-probleme hat)
ansonsten beschreib mal genauer, was du mit block meinst und ob es immer
genau 3 und 5 zeilen sind.
als tipp: datei zum lesen und schreiben öffnen, dann lesen bis zur gesuchten
stelle, 3 zeilen zurück seek()en (hier wirds komplizierter) und stelle merken,
8 zeilen überspringen, den rest einlesen,
wieder zurückseek()en, truncate und den rest schreiben.