email grab

["Jesper Bunch" <sslug@sslug>]

Hejsa

Jeg har en en fil med html kode, som indeholder nogle email
adresser.
Hvordan får jeg disse emails listet uden de resterende html koder
(i perl altså =))
Jeg bruger normalt denne regex til at indentificere emails med i
PHP, men kan den anvendes i perl direkte ?
(([_a-z0-9-])+(\.[_a-z0-9-]+)*@(([a-z0-9]+[a-z0-9-]*)+\.)+([a-z]{
2,}))
Jeg har prøvet med grep -E , men den giver mig bare hele linien
inkl. html koder.

Hilsen Jesper