$eposta = &veri_al;
die "Verdiğiniz adres isim@kurum.com   biçiminde değil"
unless (
  $eposta =~ /^[\w.+-]+\@[\w.+-]+$/;
# bu regexp sadece eposta   adreslerini eşler