perl -i -pe'$p && print; $p = /pattern/' a_text_file.txt

##</code><code>##

perl -i -ne'$p || print; $p = /pattern/' a_text_file.txt