shell$ perl -pi.bak -le 's/(?<=[^n])n|n(?=[^n])/^/ig' yourfile.txt

##</code><code>##

perl -pi.bak -0377 -e 's/n([n\n]*)n/^$1^/ig' yourfile.txt