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/);
	}