my @inhalt = open (Datei, "<", $pfad );

foreach $zeile (<Datei>)
{

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