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