$email =~ 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 print "OK\n";