$remainder =~ s/<a[^>]*>//i;

##</code><code>##

$remainder =~ s/<a\b[^>]*>//i;