my $recordSeparator = "\nName:\s+";
unless (open (FILE, $filename)) {
  # errorhandling
}
else {
  local $/ = $recordSeparator;
  while (<FILE>) {
    chomp($_); # entfernt $recordSeparator am Ende
    s/^\Q$recordSeparator\E//; # entfernt beim ersten Datensatz $recordSeparator
    my ($name, @rest) = split(/\n/, $_);
    my %item = (Name => $name);
    foreach my $line (@rest) {
      my ($key, $value) = split(/\:\s+/, $line, 2); # an : aufsplitten
      $item{$key} = $value;
    } # foreach
    
    # mach was mit %item
  } # while
  close (FILE);
} # else