deleof.pl 88 Bytes
Newer Older
1
2
3
4
5
6
7
#!/usr/local/bin/perl

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