nicht angemeldet
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!