my $test = q{ <a 
href="detail.jsp?key=7147&rc=d_20071128&p=2&pv=1">Next 
Page</a><br/>
<a class="foot"
 href="email.jsp?key=7147">E-mail Story</a> };

print "BEFORE: $test\n\n";

$test =~ s{<a[^>]+>.*?e-?mail[^<]*</a>}{}gim;

print "AFTER: $test\n";