<? 

function adreskontrolet ($adres) { 
$sonuc = ereg("^[^@ ]+@[^@ ]+\.[^@ \.]+$", $adres,$kayit); 
if ($sonuc) { $dogru = "Evet"; } else { $dogru = "Hayir"; } 
echo ("e-mail adresiniz : $adres  $dogru <BR>"); 
} 

adreskontrolet ("buadresdogrumucom"); 
adreskontrolet ("bu adres@dogrumu.com"); 
adreskontrolet ("bu@adres@dogrumu.com"); 
adreskontrolet ("buadres@dogrumu.com"); 
?>