# eigener Block zum Einlesen...
{
  local $/ = "/>";
  while ( my $dataset = <HANDLE> ) {
    # tu was mit $dataset
  }
}
# Ende Block zum Einlesen