$string =~ s/<[^>]*>//gs;

##</code><code>##

$string =~ s/<.*?>//gs;