&#36email =~ 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
   &#36               # bis zum Ende
/x and print "OK\n";