$emai =~ m/
   ^              	# Vom Anfang
   [\w.+-]+		      # mindestens ein Buchstabe, Zahl, . - + _
   \@              	# das @-Zeichen
   [a-zA-Z0-9.-]* 	# keine oder beliebig viele Buchstaben, Zahlen, . -
   [a-zA-Z0-9]     	# genau einen Buchstaben oder eine Zahl.
   [a-zA-Z0-9.-]* 	# keine oder beliebig viele Buchstaben, Zahlen, . -
   \.              	# ein Punkt
   [a-zA-Z]{2,}    	# zwei oder mehr Buchstaben
   $               	# bis zum Ende
/x and $mail = "OK";