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.
When C++ is your hammer, every problem looks like your thumb.