$text =~ s|\/\*[^\*]*\*\/||;

##</code><code>##

$text =~ s|
      	    \/\*       # '/*', escaped
      	      [^\*]*   # 0 or more non-'*' characters
      	    \*\/       # '*/', escaped
          ||x;