Comparing and deleting

kidd has asked for the wisdom of the Perl Monks concerning the following question:

I've got a script wich checks for certain e-mail wich I know doesnt exist anymore.

The problem its that Im using a foreach() loop(wich I think it can't be good).

I have my mail list file <email.txt> with all the emails each one in a new line:

something@greece.com<br>
other@newone.nl<br>
goodies@candy.net<br>
[download]

But the emails in the text against Im comparing <messages.txt> has something like this:

THIS IS A MESSAGE <script language=javascript>document.write("<a href=
+'mailto:" + "something" + "@" + "greece.com" + "'>")</script>presiona
+ndo aquí</A><br>
OTHER MESSAGE <script language=javascript>document.write("<a href='mai
+lto:" + "other" + "@" + "newone.nl" + "'>")</script>presionando aquí<
+/A><br>
WOW A MESSAGE <script language=javascript>document.write("<a href='mai
+lto:" + "goodies" + "@" + "candy.net" + "'>")</script>presionando aqu
+í</A><br>
[download]

What I want is to delete every line on "messages.txt" that has any mail on "email.txt"...

I been tryin to figure that out without any success...

Thanks

Back to Seekers of Perl Wisdom