$row[0] =~ tr /\///d;

##</code><code>##

$row[0] =~ s/\///g;