if($email && ($email !~ m/^\w{2,}\.*\-*\w*\@\w{2,}(\.\w{2,4})+$/ || $email =~ m/[;><&\*`\|]/))