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