Logischer Operator und in Perl -- hier ist die richtige(re) Antwort!

[Frank Schönmann]

hi!

unless ($email =~ /./ && $email =~ /@/)

»»  {$bool002 = 1}

Der . (Punkt) im regulären Ausdruck steht für jedes beliebige Zeichen. Deine Bedingung ist also immer war, wenn im $email mindestens irgendein beliebiges Zeichen und ein @ steht. Wenn du vor den Punkt ein \ setzt, müsste es funktionieren.

Du könntest auch gleich folgenden regulären Ausdruck für eMails verwenden, der wohl eher passen dürfte:
  /[-\w.]+@[-\w.]+?.[a-zA-Z]{2,}/
Ich hoffe, da ist jetzt kein Fehler drin :))

bye, Frank!