deleof.pl 88 B

1234567
  1. #!/usr/local/bin/perl
  2. while (<>)
  3. {
  4. print
  5. last if (/^# DO NOT DELETE THIS LINE/);
  6. }