MS SQL server: E-mail address validation

if @email not like '[^.]%[^.]@[^.]%[^.].[^.]%[^.]'
 or @email like '%[а-я `!#$%^&*(){}\|/,?]%'
 or isnull(charindex('@', substring(@email, charindex('@', @email) + 1, len(@email) - charindex('@', @email))), 1) > 0
 print 'Not valid'
else
 print "valid'