Help for this page
perl -i -pe'$p && print; $p = /pattern/' a_text_file.txt
perl -i -ne'$p || print; $p = /pattern/' a_text_file.txt