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