my ($name)   = $zeile =~ / \b Name:   \s+ (\w+) /x;