$contents_of_file =~ s/\<a.*?\>(.*?)\<\/a\>/$1/igs;

##</code><code>##

$ perl -pi -e 's/\<a.*?\>(.*?)\<\/a\>/$1/igs' *.html

##</code><code>##

<a href="something"> foo!
</a>