$riga =~ s/<\/.+?>//g;

##</code><code>##

$riga =~ s!</?.>!!g;