Scot Robnett wrote:

> Hey y'all, I got over my brain cramp and thought I'd share with the group in
> case it helps anyone trying to do something similar. I was making it way too
> complicated. All I needed was:
> 
> if($email !~ /\w+@\w+\.\w{2,4}/)
> {
>  # error stuff here
> }


have you considered using email::valid?

http://search.cpan.org/search?dist=Email-Valid


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to