Check out Email::Valid on CPAN or see the search results for email validate for more discussion on this topic.

use Email::Valid;

print "'$email' is ", Email::Valid->address($email) ? "valid" : "inval
+id";
[download]

[ ar0n -- want job (boston) ]