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

##</code><code>##

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