email regex help

Do you have a question? Post it now! No Registration Necessary.  Now with pictures!

Ive been trying to come up with two regex's but im having trouble...
the script that im writing will first ask for the domain.
im trying to get a regex to match valid domain names.

the second should be able to match an email address (without the

so far i have this
 if ($name !~ /^([a-zA-Z0-9]([a-zA-Z0-9\-\.]))$/ ) {
                print "REGEX OK\n";

i really don't know what im doing.... but i know im pretty close....

Site Timeline