use strict;
use warnings;

my @content;
open my $fh, 'datei.txt' or die "datei.txt";
{
  local $/ = "\n\n";
  while ( my $block = <$fh> ) {
    # alle Umbrüche in Block entfernen
    $block = tr/\r\n//d;
    push @content, $block;
  }
}
close $fh;