#!/usr/bin/perl
while(<DATA>){
s/<a\s\w*>\w*</<\/a>/;
print $_;

}

__DATA__
<a href="www.google.txt>Click here<span>

##</code><code>##

<a href="www.google.txt>Click here<span>