#!/usr/bin/perl

use strict;
use warnings;

print "Bitte Datum eingeben: ";
my $datum = <>;
chomp $datum;
# Ergänze hier: Prüfung, ob das Datum das richtige Format hat, ggf. Abbruch mit Fehlermeldung

my $inFile = "h.txt";

open (my $inFH, "<", $inFile) || die "Die Datei wurde nicht gefunden: $!\n";

{
    local $/ = "====> ";
    while (<$inFH>) {
        next unless /$datum/;
        chomp;
        print $_;
        last;
    }
}
close ($inFH);