my ($name) = $zeile =~ /^([^:]+)/;