It looks as if you are trying to validate an e-mail address, so perhaps you should have a look at:

perldoc -q How do I check a valid mail address?
[download]

And then give it up for a lost cause in favour of more fruitful endeavors.

--
Regards,
Helgi Briem
helgi AT decode DOT is