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