# Erklaerung der Regex
      # ^              vom Anfang
      # [\w.+-]+       mindestens ein Buchstabe, Zahl, . - + _
      # \@             das @-Zeichen
      # [a-zA-Z0-9.-]* keine oder beliebig viele Buchstaben, Zahlen, . -
      # [a-zA-Z0-9]    genau einen Buchstaben oder eine Zahl
      # [a-zA-Z0-9.-]* keine oder beliebig viele Buchstaben, Zahlen, . -
      # \.             ein Punkt
      # [a-zA-Z]{2,}   zwei oder mehr Buchstaben
      # $              bis zum Ende
      $kennzTo = "KO" if $emailAdr[0] !~ m/^[\w.+-]+\@[a-zA-Z0-9.-]*[a-zA-Z0-9][a-zA-Z0-9.-]*\.[a-zA-Z]{2,}$/;
      $kennzCc = "KO" if $emailAdr[1] !~ m/^[\w.+-]+\@[a-zA-Z0-9.-]*[a-zA-Z0-9][a-zA-Z0-9.-]*\.[a-zA-Z]{2,}$/;