#! /usr/bin/perl

use strict;
use warnings;

my $file = 'Pfad/zur/Datei';

open(DATEI,"<$file") or die $!;
while(my $zeile = <DATEI>){
  print "Zeile: ",$zeile,"\n";
}
close DATEI;

{
  local $/ = "\n>";
  open(DATE,"<$file") or die $!;
  while(my $var = <DATE>){
    print "Eintrag: ",$var,"\n\n";
  }
  close DATE;
}

{
  local $/ = "\n~~";
  open(DAT,"<$file") or die $!;
  while(my $entry = <DAT>){
    print "Entry: ",$entry,"\n\n";
  }
  close DAT;
}