Der Code liest und schreibt abwechselnd Zeilen aus und in die geoeffnete Datei. Da jeweils die gerade gelesene Zeile wieder geschrieben wird, wird in Deinem Beispiel jede zweite Zeile durch die vorhergehende ueberschrieben. Waeren die Zeilen nicht alle zufaellig gleich lang, koennte das Ergebnis auch noch wesentlich unuebersichtlicher werden.

Um die geschilderten Modifikationen an der Logdatei durchzufuehren, waere eine Loesung mit Tie::File vermutlich am bequemsten, da sich dann alle gewuenschten Operationen mit splice, grep und Konsorten erledigen lassen.