in reply to validating email address problem

Why re-invent the wheel when somebody has already done the hard work for you?

Data::Validate::Email