eMail Adresse prüfen

[piep]

Habe gerade im Forumsarchiv folgenden Tag gefunden, mit dem man angeblich eine vom Benutzer eingegebene eMail auf ihre Korrektheit prüfen kann:

#Sonderzeichen aus Mail-Adr entfernen, zugelassen: a-z, A-Z, _-+*$.@
$email    =~ s/[^a-zA-Z0-9_-+\*$.@]//g;

#SyntaxCheck

ein oder mehr Zeichen vor @

ein oder mehr Zeichen nach @

2 oder mehr Zeichen nach .

if ($email !~ /(.+)@(.+).(.{2,})/)
{
#Syntax falsch
$emailok = 0;
}
else
{
#Syntax OK
$emailok = 1;
}

Leider bekomme ich keinen Wert, weder 1 noch 0, zurück.
Woran könnte das liegen?
Ist der oberste Teil überhaupt korrekt so?

MfG, piep