Du hast offenbar vergessen, das Array @email mit Daten zu füllen oder das @ im regulären Ausdruck und der Ersetzung zu escapen.

Hättest Du UseStrict verwendet, hätte Dich Perl auch mit einer Fehlermeldung darauf hingewiesen.