$lines =~ s/(<\/a>)/\*$1/gms;

##</code><code>##

$lines =~ /<a[^\*]*<a/gms;