Avatar of Neo
Flag for Cyprus

asked on 

cgi perl script command


I have a cgi perl script that mistakenly does not accept a user email address if there is a dot symbol anywhere before the @ sign.

here is the relevant line of code

$message .= 'Invalid address<br>' if $email !~ /^[A-Za-z0-9_]+@\w{1,63}\.[a-zA-Z]{2,6}(\.[a-zA-Z]{2,6}){0,2}$/;

Open in new window

Please tell me how to remove the dot restriction.
* CGIPerl

Avatar of undefined
Last Comment

8/22/2022 - Mon