#!/usr/bin/perl;
use strict;
use warnings;

my $infile='/pfad/zur/datei.in.txt';
my $outfile='/pfad/zur/datei.out.txt';
my $data='';

# Alte daten lesen
{
  local $/=undef;
  open(my $out_fh, '<', $outfile) or die "Konnte $outfile nicht öffnen ($!)\n";
  $data=<$out_fh>;
  close ($out_fh);
}

# die letzten 5 Datansätze herauslesen
# erst die Daten am Datum auteilen,
# dann die letzten 5 Einträge herausholen,
# wenn die Liste lang genug ist.
# Dann die Einträge wieder vereinen.
my @liste=split(/(?<=20\d{4})/s,$data);
@liste=@liste[-6..-1] if(@liste>5);
$data=join('',@liste);

# Neue Daten holen
# und anhängen.
{
  local $/=undef;
  open(my $in_fh, '<', $infile) or die "Konnte $infile nicht öffnen ($!)\n";
  $data.=<$in_fh>;
  close ($in_fh);
}

# Datensatz speichern
# und dabei die alten Daten überschreiben.
open(my $out_fh, '>', $outfile) or die "Konnte $outfile nicht öffnen ($!)\n";
print $out_fh $data;
close ($out_fh);