in reply to Email validation
use RFC::RFC822::Address qw /valid/; print "Valid\n" if valid 'foo@bar.com'; [download]
I tried out Email::Valid, I like the results a lot more, than RFC::RFC822::Address
From the SYNOPSIS:
use Email::Valid; print (Email::Valid->address('maurice@hevanet.com') ? 'yes' : 'no'); [download]
--paul