Benötige Hilfe für DIESEN regulären Ausdruck

[Boothby]

if ($prefs =~ /e/i and $value and
                (($value =~ /(@.*@)|(..)|(@.)|(.@)|(^.)/) or
                  ($value !~ /^.+@([?)[a-zA-Z0-9-.]+.([a-zA-Z]{2,4}|[0-9]{1,4})(]?)$/)))
                                                              { push @bad_emails, $key      }

Versuch's mal damit. Ich müßte selbst nachgucken, ob es so richtig ist, aber ich denke mal ja *g*

Das Geheimsis liegt in den {}. {a,b} bedeutet hierbei mindestens a und maximal b Wiederholungen der zuvor aufgeführten Zeichen.

Mal ne andere Frage. Woher hast du so einen schrecklichen Code?