if ($mail !~ /[\w\.-]+@[\w\.-]+\.[A-Za-z]{5}/) {
      print "Keine gültige E-mail Adresse.";
}