perl -e "print join(qq(\n),('+','\+','\\+','\\\+')),qq(\n)"
+
\+
\+
\\+

##</code><code>##

+
\+
\\+
\\\+