の記述の中で『090』を禁止語句にするにはどうしたらいいのでしょう？？

elsif ($email !~ /[\w\.\-\&]+\@[\w\.\-\&]+\.[\w\.\-\&]/){&error("メールアドレスが間違っています。");}