$record{$_} =~ s/<.*?>//g; # remove start tag

##</code><code>##

$record{$_} =~ s/<[^>]+>//g;