How to extract just email addresses from a text record?

Hello does anyone know a formula to extract just the email addresses from files with records as follows:

aaasilv@terra.com.br;85.72.201.151;Athens;Attiki;Greece;20/07/2015;Nao;Sim;;;;1430833559
aabmeneses@terra.com.br;187.90.44.115;Salvador;Bahia;Brazil;20/07/2015;Nao;Sim;;;;3143249011

I have a total of 25,000 records for this extraction so a truncation solution would be appreciated!

The text required for each of the records above is:
aaasilv@terra.com.br
aabmeneses@terra.com.br

Thanks

=LEFT(A1,SEARCH("";"",A1,1)-1

=LEFT(A1,SEARCH("";"",A1,1)-1)

gives the E-mail from cell A1

Kind regards
Leo