#!/usr/bin/perl -w
my $inFile = "h.txt";
open (my $inFH, "<", $inFile) || die "Die Datei wurde nicht gefunden\n";
{
    local $/ = "====> ";
    while (<$inFH>) {
        chomp;
        print $_ . "-- 8><----\n";
    }
}
close ($inFH);