deleof.pl
[
plain text
]
#!/usr/local/bin/perl
while
(<>) {
print
last
if
(/^
# DO NOT DELETE THIS LINE/);
}