How to make an efficient check constraint for an e-mail field in Firebird

Question of the day on Stack Overflow is :

How to make an efficient check constraint for an e-mail field in Firebird (if field value not null)?