{
  local $/ = "";
  while ( my $block = <$fh> ) {
    # tu was mit $block ($block ist nun beispielsweise "PartX:bla\nbli\nblubb\n\n";
  }
}