perl email checker for form

[oilman]

Currently I'm using a script with the follow piece of code that checks for valid email addresses being entered on a form:

if ($FORM{'Employee_email'} !~ /\w+@[a-z0-9.\-]+\.\w+/) {
push(@ErrorMSGs, '<li>You did not fill in a valid email address.</li>');
$bad_employee_email = 1;
$error++;

I would like the field to accept email address with capital letters after the @ and I don't speak perl - little help? :)

[bobriggs]

[a-zA-Z0-9.\-]

[oilman]

thanks bob - I figured it would be something like that but I needed some clarification.