Regular expressions for detecting email addresses

Function ismail ($ V_ADDR)

{

IF (EREGI ("^ ([A-ZA-Z0-9 _-]) @ ([A-ZA-Z0-9_-]) . ([A-ZA-Z0-9_-]", $ V_ADDR ))

Return True;

Else

Return False;

}