while (<RE>)
	{
		chomp;
		s/\s+/ /g;
		/[A-Za-z]*\,?\s?[A-Za-z]*\.? /;
		my @felder = split / /,$';
		(my $str = $&) =~ s/\s+$//;
		unshift(@felder,$str);
		push(@daten,\@felder);
	}
  close RE;