# suchkriterien festlegen:
$search[0]="Mitgliedsname:";
$search[1]="Name:";
$search[2]="Straße:";
$search[3]="Ort:";
$search[4]="Land:";
$search[5]="Käufer:";
$result="Mitgliedsname,Name,Straße,Ort,Land,Email\n"; #Dateikopf erstellen
if (-e("testmail2.csv")){ # wenn File vorhanden
   open(ML, "testmail2.csv"); # öffnen
   @incoming = <ML>; #Inhalt in ein Array schieben
   close(ML); #keine Ahnung ;-)
   for ($a = 0; $a < @incoming; $a++) { #jede Zeile der Quelle durchlaufen
       for ($b = 0; $b < @search; $b++){ #auf jeder Zeile die Suche anwenden
            if ($incoming[$a] =~ /$search[$b]/ ) {#wenn Zeile mit gesuchtem _
              gefunden
               ($field[$a], $value[$a], $mail[$a]) = split(/\;/,$incoming[$a]); _
               #Werte am Doppelpunkt trennen
               if($b != 5){$result .= "$value[$a],";} 
                else{$result .= "$mail[$a]\n";last; # Datensatz komplett
                }
            }#end for$b
       }#end for$a
   open(OUT, ">adressen.csv")||die("Dateierstellung fehlgeschlagen");
   print OUT "$result"; #alles in die neue Datei schreiben
   close(OUT);
}else{die("Quelldatei nicht gefunden");
}#end if -e
exit;