Nordlohn    St. heilig Kreuz                 heilig@uwe-einhaus.de
           Nordlohn    St. hlg. Kreuz                   hlg@uwe-einhaus.de
           Nordlohn                                     leer@uwe-einhaus.de  
<perl>

$formStammname="St. hlg. Kreuz";  ### formStammname wird Wert zugewiesen. In Realität mit html-Formularfunktion input
$formStamm="13";                  ### s. o.

$EMailliste="";
$formStammnameoL=$formStammname;  ### def. Vergleichsvariabel "ohne Leerzeichen
$formOrtoL=$formOrt;              ### def. Vergleichsvariabel "ohne Leerzeichen
$Leerzeichen="";                  ### Unschön, aber ich weiss keine Alternative für mod bzw. get Befehl, ggf."" ?
$formStammnameoL=~ s/ /\\ /g;     ### Präparieren der Leerzeichen für get Befehl (Vergleich)
$formOrtoL=~ s/ /\\ /g;           ### Präparieren der Leerzeichen für get Befehl (Vergleich)

    get "Stammnummer==$Leerzeichen & Ort==$formOrtoL & Stammname==$formStammnameoL","Adrl";
    while(get_next("Adrl"))
      {
        $EMailliste="$EMail, $EMailliste";
        out "Stammname $ Stammname in Adrl angegeben: $formStammnameoL<br>";

      } 
    get "Stammnummer==$Leerzeichen & Ort==$formOrtoL & Stammname==$Leerzeichen","Adrl";
    while(get_next("Adrl"))
      {
        $EMailliste="$EMail, $EMailliste";
      } 
    mod "Stammnummer==$Leerzeichen and Ort==$formOrtoL and Stammname==$formStammnameoL", ["Stammnummer", "$formStamm"], "Adrl"; 
    mod "Stammnummer==$Leerzeichen and Ort==$formOrtoL and Stammname==$Leerzeichen", ["Stammname", "$formStammname", "Stammnummer", "$formStamm"], "Adrl";

<\perl>