s/c[_]/c[~]/;

##</code><code>##

$_='c[_]';
s/\Qc[_]\E/c[~]/;
print $_,$/;