Gerald,
Of course, I should have waited a bit before sending that script off...
Here's a better version. It strips out the mailto: link completely.
Let me know if does anything stupid...
#!/usr/bin/perl -w
while (<STDIN>)
{
s/\<A HREF\=\"mailto\:.*?@.*?\"\>(.*?)@(.*?)\<\/A\>/$1 at $2/g;
print $_;
}
(This'll all probably start off some kind of competition to see who can
make the shortest, most compact, most beautiful Perl email address
stripper... ehhh)
:-)
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
