In perl this would work most of the time:
Code:
s/(a href=")[^"](")/$1#$2/g;
So:
Code:
charlie:~$ perl -ne 's/(a href=")[^"]+(")/$1#$2/g;print;'
<a href="GOOGLE.COM">google</a> <a href="http://charlieharvey.org.uk">my homepage</a>
<a href="#">google</a> <a href="#">my homepage</a>
charlie:~$
--
Charlie Harvey's website - linux, perl, java, anarchism and punk rock:
http://charlieharvey.org.uk