while(<>) { print $_; last if /### DO NOT DELETE THIS LINE/; }