## Check email address
if (($email ne "") && ($email !~ m/[\w]+@[\w]+\.[\w]+/))