$text = qq| This is text and it contains a couple of e-mail addresses, like [EMAIL PROTECTED] and [EMAIL PROTECTED] what If I want to search for these [EMAIL PROTECTED] etc etc addresses in the text and perform search and replace function on those. |;
Any idea as how to extract all the E-mails from the text above and performing s/@/#/; on all addresses at the same time? Just want to extract email addys and want to replace @ with something un-readable by spam bots. Thanks for any Regex help. Sara.
